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ABSTRACT 



A need exists for a set of computer programs that can be 
used by students to solve elementary digital signal 
processing problems using a personal computer. This project 
involved the design and implementation of ten algorithms 
that solve such problems and an additional algorithm that 
creates plots of the various input and output sequences. 
The two primary goals of the programs were: 1) user 
friendliness and, 2) portability. With these goals in mind, 
the source code was written using Fortran-77 and compiled by 
a commercially available Fortran compiler specifically 
designed for personal computers. The plotting program uses 
a Fortran-compatible graphics package that is also com- 
mercially available. The programs, once compiled, can be 
distributed to users without the requirement to purchase 
either a Fortran compiler or a graphics package,' however, 
access to a Fortran compiler enhances the utility of the 
programs . 
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DISCLAIMER 



The reader is cautioned that computer programs developed in 
this research may not have been exercised for all cases of 
interest. While every effort has been made, within the time 
available, to ensure that the programs are free of computa- 
tional and logic errors, they cannot be considered vali- 
dated. Any application of these programs without additional 
verification is at the risk of the user. 
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I. 



INTRODUCTION 



Introductory digital signal processing courses present a 
wide spectrum of challenging topics to students enrolled in 
the electrical engineering curriculum. Undergraduate level 
courses present the transition from analog, continuous-time 
systems to digital, discrete-time processes. Topics include 
difference equations, state-matrix equations, system 
transfer functions, frequency response and the z-transform. 
Furthermore, the relationship between the time domain and 
the frequency domain is introduced and discrete convolution 
is discussed. Graduate level courses introduce filter 
design techniques and track the development of the Fast 
Fourier Transform (FFT) from the Discrete Fourier Transform 
(DFT) . The interrelationships between circular convolu- 
tion/correlation and the DFT are discussed and a brief 
introduction to spectral estimation is given. 

In brief, the transition from the continuous-time method 
of system analysis to discrete-time methods is challenging 
to most students. While analytical methods are covered 
thoroughly in the classroom, computer solutions to problems 
reinforce learning by facilitating solutions to problems 
containing long sequences of data. Furthermore, the digital 
computer is the heart of digital signal processing applica- 
tions in the real world. To this end, therefore, it is 
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instructive to present computer programs that can perform 
many of the computations required for elementary digital 
signal processing (DSP) . 

The project summarized by this report involved designing 
a set of computer programs that can be used in a laboratory 
environment to reinforce the basic concepts of digital 
signal processing. Although deviations exist, the al- 
gorithms developed in First Principles of Discrete Systems 
and Digital Signal Processing, by R.D. Strum and D.E Kirk 
[Ref. 1] were used extensively in the development of these 
programs. The programs were written using Microsoft Fortran 
77 Version 4.01. 1 This compiler was chosen because of its 
flexibility. It will compile Fortran programs for personal 
computers enhanced with a math coprocessor (8087/80287) or 
for less capable machines. The total project consists of 
ten programs related to the solution of digital signal 
processing problems and an additional program which produces 
2-dimensional plots of the data. The plotting program was 
written using the Fortran-compatible Graphmatics software 
library. 2 The minimum hardware/software requirements 
necessary to run these programs are: 



-'-Microsoft Corp. , 1987, Bellevue, Wa. The programs 
will also compile after minor changes using Ryan McFarland 
Fortran Version 1.0 or later. 

2 Microcompatibles Corp., 1983, Silver Springs, MD. 
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* A personal computer with at least 320k of available 
memory . 

* A monitor with a CGA card installed. 3 

* A single double-sided, double-density diskette drive. 

The following options will either enhance the flexibility or 
increase the performance of the programs: 

* A Microsoft Fortran Compiler Version 4.01 or later. 

* A dot-matrix printer. 

Chapter II details the scope of the programs and the 
general methodology used in developing them. Chapter III 
provides the concise development of each program. Flow- 
charts are presented to provide the architecture of the 
algorithms, depicting their macro-level design. Applicable 
equations are listed for each computational task and the 
corresponding Fortran implementation is discussed. 



3 A computer graphics card is only required to support 
the graphics program PLOTDAT . FOR and is not required for the 
other programs. 
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II. PROGRAM DEVELOPMENT 



This chapter presents the scope of the computer programs 
and the general methods used in designing them. The goals 
of computational efficiency and user friendliness are 
addressed as the two sometimes conflict. Finally, a generic 
program structure used throughout the software development 
is presented. 

A. SCOPE OF THE PROGRAMS 

The package consists of ten problem solving programs and 
a two-dimensional plotting program. Each of the ten problem 
solving programs is oriented toward solving a specific DSP 
problem. The title of each program and its corresponding 
Fortran filename are listed below: 

Problem Solving Programs 

1. The frequency response of a digital filter. 

Filename: DIGFREQ . FOR 

2. The frequency response of an analog filter. 

Filename: ANLGFREQ . FOR 

3. The Discrete Fourier Transform (DFT) or Inverse DFT 

(IDFT) of a finite-length sequence. 

Filename: DFT. FOR 

4. The periodogram of a finite-length sequence. 

Filename: PRDGRM . FOR 

5. Convolution and correlation using the DFT algorithm. 

Filename: CONCORDT.FOR 



4 



6 . 



The Fast Fourier Transform (FFT) or Inverse FFT (IFFT) 
of a finite-length sequence. 

Filename: FFT. FOR 

7. Convolution and correlation using the FFT algorithm. 
Filename: CONCORFT.FOR 

8. Convolution and correlation in the time domain. 
Filename: CONCOR.FOR 

9. The iterative solution to a linear, time-invariant 
difference equation. 

Filename: DIFFEQ.FOR 

10. The iterative solution to a set of linear, time- 
invariant state-matrix equations. 

Filename: STATEQ.FOR 

Plotting Program 

11. A file-driven, two-dimensional plotting algorithm. 
Filename: PLOTDAT.FOR 

B. GENERAL METHODOLOGY OF PROGRAM DEVELOPMENT 

All of the programs are oriented toward engineering 
students enrolled in elementary DSP courses. Since most 
engineering students have had at least some experience in 
Fortran programming, this language was an obvious choice. 
The programs can be executed without altering any of the 
Fortran code; however, some of the subroutines were 
specifically designed to allow the addition of Fortran 
statements to produce a desired sequence of data. This 
option will be discussed in more detail in Chapter III. 

The source code structure of the algorithms is designed 
so that the user can follow the flow of each program as it 
performs the computations required by the task at hand. 
Computational efficiency is generally accepted to be one of 



5 



a program designer's primary goals. However, because these 
programs were designed with the DSP student as the 'Target 
User', an overriding consideration was to make the flow of 
the programs understandable. For example, in CONCORDT.FOR 
the program will compute, among the options available, 
either the linear convolution or the circular correlation of 
two data sequences by using the DFT algorithm. The steps 
required by these two options are listed below [Ref. 1: pp. 
424 , 432 , 433 ] : 

Option: Linear Convolution 

1. Zero pad array #1. 

2. Zero pad array #2. 

3. Compute the DFT of array #1. 

4. Compute the DFT of array #2. 

5. Multiply the results of steps 3 and 4. 

6. Compute the I DFT of step 5. 

Option: Circular Correlation 

1. Compute the DFT of array #1. 

2. Conjugate the result of step 1. 

3. Compute the DFT of array #2. 

4. Multiply the results of steps 2 and 3. 

5. Compute the IDFT of step 4. 

Clearly, if maximum efficiency was the only goal of the 
programs, the steps could be combined as follows: 

Option: Linear Convolution or Circular Correlation 

1. If option = Linear Convolution then zero pad array #1 
and array #2. 

2. Compute the DFT of array #1. 

3. If option = Linear Correlation then conjugate the 
result of step 2. 

4. Compute the DFT of array #2. 

5. Multiply the results of steps 2 and 4. 

6. Compute the IDFT of step 5. 
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However, by maintaining the separated algorithms, students 
can gain insight into the steps required to accomplish each 
of the tasks: linear convolution or circular correlation. 

This example, although somewhat contrived, demonstrates the 
general approach taken when confronted with the issue of 
efficiency versus readability throughout the programming. 
It is more instructive to separate the Fortran source code 
according to the steps required to perform a specific 
functional task rather than combine steps to form an 
efficient but less readable algorithm. 

Each of the problem solving programs has two modes of 
operation: Test or Batch. Test Mode was conceived to guide 

inexperienced users through each program, allowing them the 
option of running the programs using data prestored in a 
data file named XXXX.TST. For example, while running the 
program DFT.FOR in Test Mode, the user can elect to use the 
prestored input data by entering 'DFT.TST', when prompted 
for the name of the input file. The prestored input data 
and the output which it produces correspond to an example 
problem developed in the header text of each program. The 
inexperienced user can therefore: 

1) Read the header text including the sample problem. 

2) Match the input parameters required by the program to 
those occurring in the input file: XXXX.TST. 

3) Execute the program in Test Mode to produce the 

corresponding output. In Test Mode, key input 

parameters read from the input file are printed onto 
the monitor screen. This further aids inexperienced 
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users by providing the opportunity to detect invalid 
input. 

The more experienced user can elect to run the programs 
in Batch Mode. In this mode the amount of interface with 
the user is minimized. Upon execution in Batch Mode, the 
program assumes that the appropriate input parameters have 
been stored in the default input file: XXXX.IN (e.g., 

DFT.IN). Figure 2.1 summarizes the events that occur in 
each of the two modes: Batch and Test. 




Figure 2.1 Program Flow. 
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C. GENERIC STRUCTURE 

Students who use these programs will find some comfort 
in their standardized input and output structures as well as 
the documented Fortran code found in the algorithms 
themselves. With few exceptions, the specific names of 
variables correspond to their conceptual counterparts found 
in Reference 1. By using a single DSP textbook such as this 
to guide the choice of variable names, some standardization 
can be achieved throughout the programs' header text and 
accompanying source code. For example the following 
variable names, among others, occur in several of the 
programs: N = the number of output delays in a system; L = 
the number of input delays in a system; x() = the input 
sequence of a system; y() = the output sequence of a system, 
etc. A more comprehensive discussion of specific variable 
names occurs in the appendices. The remainder of this 
chapter is dedicated to describing the structure of the ten 
problem solving programs. The plotting program is not 
considered here as this program was designed with the sole 
purpose of reading data from an input file and creating a 
two-dimensional plot of the data. 

1 . Input Structure 

All of the programs are file driven, that is, each 
program upon execution opens an input file, reads the 
contents of the input file, and performs the computations 
specified by the input parameters. Because of the variety 
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of possible computations permitted by the programs, little 
attempt was made to standardize the specific inputs 
themselves. However, the following general specifications 
are used: 

* All computations are performed using single precision 
arithmetic. 

* All READ statements are format-directed; that is, none 
of the READ statements use list-directed format. An 
extensive discussion of the tradeoffs of these two 
methods is available in Fortran programming literature 
(e.g., [Ref. 2]). 

* 'Real' numbers are read using format: F10.0. This 

allows the flexibility of reading real numbers entered 
using either F or E format descriptors. 

* 'Complex' numbers are read as two real numbers, each 

having format: F10.0. 

* Integer values required by the programs are read using 
the I (integer) format descriptor. 

* Character strings required by the programs vary in 
length, however, none of the required string inputs is 
longer than 10 characters. 

* Separate data entries occurring on a given line (record) 
of the input file begin in one of the following columns: 
1, 11, 21, 31, 41, 51. 

During the developmental stage of the programs an 
attempt was made to use list-directed inputs. It was 
discovered however, that different Fortran compilers treat 
variable assignments in different ways. For example, while 
some compilers allow integers to be read into variables 
declared as real and vice versa, other compilers will not 
allow this. In order to maintain the portability of the 
programs; therefore, format-directed inputs are used 
exclusively . 
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Each of the programs contains instructions in the 
header text describing the options available and the input 
parameters required to run the program. An example problem 
is developed in this text including a brief overview of the 
problem, the input required to achieve the desired results, 
and a listing of the actual output produced by the program. 
This approach allows first-time users to confirm their 
understanding of each program's input requirements and 
corresponding format. As stated at the beginning of this 
chapter, each sample problem can actually be run by 
executing the program in Test Mode and specifying the input 
filename: XXXX.TST at the prompt. Experienced users can 
elect to run the programs in Batch Mode in which case the 
programs attempt to OPEN and READ the default input file: 
XXXX.IN (e.g., DFT.IN). Input files for other than test 
runs should be named according to this scheme. 

2 . Program Structure 

Each program consists of a main program and one or 
more subroutine subprograms. The computations related to 
the functional tasks of each program are performed in 
suitably named subroutines. For example, the program 
DFT.FOR will compute either the Discrete Fourier Transform 
or the Inverse Discrete Fourier Transform of a given input 
sequence depending on the option selected. The program 
consists of a main program and the subroutines DFT, INVDFT, 
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and SAMPLE. The subroutines DFT and INVDFT perform the 
computations suggested by their names and SAMPLE allows the 
user the option of generating an input sequence by providing 
the appropriate Fortran statements in the space provided in 
the body of the subroutine source code. Housekeeping tasks 
are reserved for the main programs. These tasks include, 
but are not limited to, the following: 

* Obtaining the inputs required by the program, either 
from the input file or from the keyboard, as appro- 
priate. 

* Conducting rudimentary error checks on the input data. 

* Calling the appropriate subroutines to perform the 
desired computations. 

* Performing data conversions (e.g.,Real and Imaginary — ■ > 
Magnitude and Phase) . 

* Creating the output files. 

Error checking consists of ensuring that the 
numerical input values are within the range specified in 
each program's header text. This reduces the chance of 
making gross errors such as inputting '30' when a READ 
statement requires format 14 thereby producing an erroneous 
input of 3000! Character string inputs are used by most of 
the programs to distinguish among the available options. 
Error checking involving these inputs is limited to a simple 
string comparison. The error messages produced by any of 
these algorithms are self-explanatory. 
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3 . Output Structure 



Several purposes are served by the output listings 
of the programs. Among these are the following: 

1) To allow the user to confirm anticipated results by 
comparing the output data generated by the computer 
algorithm to analytical results generated indepen- 
dently. 

2) To place the output data in a format suitable for two- 
dimensional plotting by a program such as PLOTDAT . FOR . 

The former stated purpose requires that the output 
data be in easily readable, tabular form. To accomplish 
this, each program generates an output file named: XXXX.OUT 

(e.g., FFT.OUT) . At the beginning of each tabular output 
file the data read from the input file is listed including 
any input sequence(s). Additionally, any input sequence(s) 
generated by a subroutine such as SAMPLE is also written to 
the output file. Lastly, the output data generated by the 
program is listed. This comprehensive listing of the input 
data as well as the output data allows the user to verify 
that the input values were read correctly from the input 
file. Furthermore, with both the input data as well as the 
output data in one listing, the user can identify the 
problem and check the computational results more readily. 

The two-dimensional plotting program PLOTDAT. FOR 
reads data according to the format: fl2.0, 2X, fl2.0, with 

the first entry on each line corresponding to the ordinate 
value and the second, the abscissa. The plotting program 
will produce more than one plot if the appropriate data 
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entries exist in the input file. This flexibility of the 
plotting program suggests the possibility of plotting not 
only the output data, but also any input seguence(s). To 
accommodate the capabilities of the plotting program, each 
of the ten problem solving programs creates an output file 
named: XXXX.DAT (e.g., FFT.DAT). For programs that require 
an input sequence (s), both the input sequence (s) as well as 
the output sequence (s) are stored in the output file 
XXXX.DAT. These output files are created in addition to the 
tabular output files and do not require any user interface. 

The general content and format of the programs have 
been discussed in this chapter. The next chapter formally 
develops each program, relating computational goals to 
specific source code. 
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III. SOFTWARE DESIGN 



A subsection of this chapter is dedicated to each of the 
ten problem solving programs as well as the plotting program 
PLOTDAT . FOR . Flowcharts that describe the various al- 
gorithms are located in Appendices A through K and listings 
of the Fortran source code for the programs are included as 
Appendix L. 

A. PROBLEM SOLVING PROGRAMS 
1. DIGFREO . FOR 

The program DIGFREQ.FOR is designed to compute the 
frequency response of up to three digital filters. The 
program assumes that the filters are stable and that the 
transfer function of each filter has the form: 

b ( 0 ) z L + b ( 1) z L_1 + b ( 2 ) z L-2 + ... + b (L-l) z + b(L) 

H ( z ) = 

c(0)z N + c(l)z N_1 + c(2)z n " 2 + ... + c (N-l) z + c(N) 

(3.1) 

The order of the numerator (L) and the order of the 
denominator (N) can be assigned any integer values in the 
range: 0 to 128. These parameters are read from the input 

file. The program accepts up to three distinct filter 
equations and will compute the magnitude and phase (degrees) 
for up to 101 frequency points for each filter. The 
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frequency (0) range of interest is also specified by the 
user in the input file. 

The program consists of the main program DIGFREQ.FOR 
and the subroutines COEFF and DFRESP. The user can provide 
the filter coefficients [arrays b() and c()] in the input 
file or can elect to generate them through use of the 
subroutine COEFF. If this latter option is chosen then the 
user must provide the appropriate Fortran statements in the 
space allocated in the subroutine and the program must be 
compiled again before execution. Subroutine DFRESP is 
called by the main program to perform the actual frequency 
response computations. 

This program is an implementation of the psuedocode 
presented in Reference 1. [p. 203] The software flowcharts 
of Appendix A depict the overall program structure. If the 
user has elected to run the program in Batch Mode the 
default input file DIGFREQ.IN is opened by the program and 
the input parameters are read from it. If Test Mode is 
chosen, the input file whose name is specified by the user 
is read. The parameters describing each filter are passed 
to subroutine DFRESP which then computes the magnitude and 
phase of H(z) for each value of z = e^ 0 in the specified 
range of 0. By using nested multiplication to compute the 
frequency response, DFRESP adds a measure of efficiency to 
the program [Ref. 3]. In the limit (L = 128, N = 128), if 
evaluation of each polynomial term is performed for 101 
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frequency points, the total number of complex multiplies 
required is over 1.6 million. The corresponding number of 
complex multiplies required using the Nested Multiplication 
technique is about 26 thousand. 

The input parameters read from the input file and 
the corresponding frequency response (s) generated by the 
program are stored in tabular form in the output file 
DIGFREQ.OUT. Additionally, the program writes the frequency 
response data into the file DIGFREQ.DAT. Appropriate labels 
and control parameters accompany the data in DIGFREQ.DAT and 
are written in a form compatible with the plotting program 
PLOT DAT . FOR . 

Appendix A traces the development of two digital 
filters and compares the anticipated frequency responses 
with the computer generated output. Plots of the output 
data produced by PLOTDAT.FOR are included in the analyses. 

2 . ANLGFREO . FOR 

The program ANLGFREQ . FOR is designed to compute the 
frequency response of continuous-time (analog) systems. The 
design of ANLGFREQ. FOR is very similar to DIGFREQ. FOR. The 
program assumes that the filter is stable and that the 
transfer function has the form: 

b(0)sk + b(l)s^ -1 + b(2)s^-‘~ 2 + ... + b(L-l)s + b(L) 

H (s) = 

a(0)s N + a(l)s N_1 + a ( 2 ) s N-2 + ... + a(N-l)s + a(N) 

(3.2) 
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The order of the numerator (L) and the order of the 
denominator (N) can be assigned any integer values in the 
range: 0 to 128. The parameters L and N, as well as the 

coefficients b(0), . .., b(L) and a(0), . .., a(N) are 

specified in the input file. As with DIGFREQ.FOR, the 

program will accept up to three distinct filter equations 
from the input file, and calculate the magnitude and phase 
for up to 101 frequency points for each filter. The user 
must specify the frequency range of interest and can elect 
to have the magnitude expressed in decibels (dB) . 

The algorithm consists of the main program ANLG- 
FREQ . FOR and the subroutine AFRESP. The main program 
controls the input and output and calls subroutine AFRESP to 
compute the frequency response for each filter. The 
software flowcharts of Appendix B depict the program 
structure. Subroutine AFRESP is an adaptation of the 

Fortran source code used in subroutine DFRESP [Ref. l:p. 
621]. ANLGFREQ.FOR computes the frequency response of 
filters expressed in the 's domain'. This differs from 
DIGFREQ.FOR which computes the frequency response of filters 
expressed in the 'z domain'. Notwithstanding this dif- 
ference, the subroutines DFRESP and AFRESP are identical 
[except that 'jw' (j omega) is substituted for the complex 
variable ' z ' in AFRESP] and the efficiencies gained through 
the use of nested multiplication apply for AFRESP as well. 
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The output data produced by ANLGFREQ.FOR are stored 
in two files: ANLGFREQ . OUT and ANLGFREQ.DAT. The former 
output file lists both the input parameters as well as the 
output data for each filter in tabular form. ANLGFREQ.DAT 
is a listing of the output data in a form suitable for 
plotting. 

Appendix B presents the conceptual development of an 
analog filter and its corresponding frequency response using 
ANLGFREQ.FOR. Plots of the output data generated by 
PLOTDAT.FOR are included in the analysis. 

3 . DFT. FOR 

A task particularly well suited for the digital 
computer is the computation of the Discrete Fourier 
Transform (DFT) or its inverse, the IDFT . The DFT of a 
sequence N samples long is defined by: 



N-l 

X (k) = £ x(n)e~3 27rnk / N ; k = 0, 1, ..., N-l 

n=0 

(3.3) 

Its corresponding inverse, the IDFT, is defined by: 



1 N-l 

x (n) = - £ X (k) eJ 27rnk/N 

N k=0 



n = 0 , 1 , . . . , N-l 

(3.4) 



An alternate method for calculating the IDFT is the 
'Alternate Inversion Formula' [Ref. l:p. 406]: 
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3 



* 



x(n) = 

N 



N-l * -j 27rnk/N 
2 X (k) e 
k=0 



n = 0 , 1 , . . . , N-l 



* Denotes complex conjugation. (3.5) 

Once an algorithm has been developed to compute the DFT 
[Equation (3.3)], the IDFT can be efficiently computed using 
Equation (3.5). The steps involved in computing the IDFT 
are summarized below. 

1. Conjugate all N values of the sequence X(k). 

2. Use the DFT algorithm to compute the DFT of the 

conjugated sequence. 

3. Conjugate the sequence resulting from step 2 and 

divide each value by N. The result is the sequence 
x (n) . 

The program DFT. FOR consists of a main program and 
the subroutines DFT, INVDFT, and SAMPLE. The main program 
reads the required input parameters from the input file and, 
depending on the option specified by the user, computes 
either the DFT or the IDFT of the input sequence by calling 
the appropriate subroutine. The program will accept a 
complex input sequence of up to 256 samples. Since typing a 
long sequence of data into an input file is somewhat 

impractical, the user has the option of generating the input 
sequence by using the subroutine SAMPLE. If this method of 
data generation is chosen, the user must provide the Fortran 
statements required to generate the sequence, in the space 
provided in the subroutine. For example, if the user 
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desires to compute the DFT of the 'real' sequence xin(i) = 
cos(i7r/N) for i = 0, 1, N-l appropriate Fortran 

statements to be written into SAMPLE are: 
do 100 i = 0, N-l 

xin(i) = cmplx(cos (i*3 . 14159/N) , 0.0) 

100 continue 

A caveat to using this method of data generation is that the 
program must be recompiled before execution. 

The software flowcharts of Appendix C depict the 
overall program structure. As the flowcharts indicate, the 
program computes the DFT of the sequence according to 
Equation (3.3) and computes the IDFT by use of the Alternate 



Inversion 


Formula . 


Thus, subroutine 


INVDFT must 


call 


subroutine 


DFT 


as 


part of the 


IDFT 


computation . 


Both 


algorithms 


are 


implementations 


of the 


psuedocode 


archi- 


tecture presented 


in Reference 


1 [pp. 


411, 412]. 


This 



design incorporates the efficiencies of nested multiplica- 
tion stated previously. Also included in Appendix C are 
three example problems that demonstrate the capabilities of 
DFT . FOR . 

4 . PRDGRM. FOR 

As the first of two application programs of the DFT 
algorithm, PRDGRM. FOR provides an introduction to the 
classical methods of spectrum analysis. The periodogram of 
a sequence is defined, quite simply, as the square of the 
DFT of the sequence divided by N, the number of points [Ref. 
l:pp. 454-456]. Equation (3.3) governs the computation of 
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the DFT sequence X(k), and with this task accomplished the 
periodogram can be computed from: 

1 * 

Sxx(k) = - X (k) X (k) k = 0, 1, . .., N-l 

N 

* Denotes complex conjugation. (3.6) 

The program PRDGRM . FOR will compute the periodogram 
of a sequence consisting of up to 256 complex values. To 
facilitate the generation of long sequences of input data, 
the subroutine SAMPLE has been provided as part of the 
algorithm. Instructions for its use are the same as those 
discussed in the previous section. The main program 
performs the input and output tasks required by the program 
and calls subroutine DFT to compute the sequence X(k) . Once 
the array X(k) has been computed, the main program computes 
the sequence Sxx(k) by implementation of Equation (3.6). An 
option available to the user is to have the output sequence 
expressed in decibels, a result commonly referred to as the 
'Log Periodogram'. 

Appendix D includes three example problems that 
demonstrate the utility of PRDGRM. FOR. Included in the 
problem analyses is a discussion of the limitations of the 
periodogram as a means of spectral estimation for finite- 
length sequences. The software flowcharts of the appendix 
outline the program's structure. 
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5. 



CONCORDT. FOR 



The second application program of the DFT algorithm 
is CONCORDT . FOR. The program uses the DFT technique to 
perform one of the following operations, given two sequences 
of complex input values: 

1. Linear convolution. 

2. Linear correlation. 

3. Circular convolution. 

4. Circular correlation. 

The program consists of the main program CON- 
CORDT. FOR and the subroutines DFT, INVDFT , SAMPL1, SAMPL2 , 
and ZEROPAD. Subroutines DFT and INVDFT compute, respec- 

tively, the DFT and the IDFT of a given sequence. Sub- 
routines SAMPL1 and SAMPL2 allow the user the option of 
generating the input sequences xnl() and xn2() by providing 
the appropriate Fortran statements in the space provided in 
the subroutines. Details of these four subroutines were 

presented previously and therefore will not be repeated 
here. Subroutine ZEROPAD is designed to extend each of the 
input sequences to the length required for computing either 
the linear convolution or the linear correlation using the 
DFT technique. For example, to compute the linear convolu- 
tion of the two input sequences xnl() and xn2() of length N1 
and N2 , respectively, each of the these sequences must be 
padded with enough zeros to extend the sequences to length: 
N3 = N1 + N2 - 1 samples. To accomplish this, the sequence 
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xnl() must be padded with N3 - N1 zeros and the sequence 
xn2 ( ) must be padded with N3 - N2 zeros. This same 
procedure is required if the linear correlation of the two 
sequences is to be performed. In either case, subroutine 
ZERO PAD extends the sequences to the required length. The 
program accepts input sequences consisting of up to 128 
complex values. The input sequences xnl() and xn2() are 
assumed to exist in the sample intervals 0 to N1 - 1 and 0 
to N2 - 1, respectively. 

The technique of using the DFT algorithm to compute 
the convolution of two sequences is based on the concept 
that time domain convolution corresponds to frequency domain 
multiplication. Given this relationship, the steps required 
to compute the circular convolution of two sequences are 
depicted below. For ease of documentation, the following 
symbols are used: 



* Denotes linear convolution. 

© Denotes circular convolution. 



xnl ( ) 
xn2 () 







IDFT 



> xn3() 



xn3() = xnl() © xn2 ( ) 
Figure 3.1 Circular Convolution. 



24 



The circular correlation R() can be computed in the 

xnlxn2 

time domain by reversing the order of the sequence xnl ( ) and 
performing circular convolution on the resulting sequences. 
Circular correlation can also be performed using the DFT 
technique by performing the following steps: 



xnl ( ) — > 



DFT 



CONJUGATE 



X 



IDFT >R() 

' xnlxn2 



xn2 ( ) — > 



DFT 



R() = The circular correlation of xnl() and xn2 ( ) . 

xnlxn2 

Figure 3.2 Circular Correlation. 

Linear convolution is performed by first zero 
padding the sequences to length N3 = N1 + N2 - 1 and then 
performing circular convolution on the extended sequences. 
Thus, the steps required to perform linear convolution are: 



xnl ( ) 



ZEROPAD 



-> 



DFT 



X 



IDFT 



-> xn3 ( ) 



xn2 ( ) 



ZEROPAD 



DFT 



xn3 ( ) = xnl() * xn2 ( ) 

Figure 3.3 Linear Convolution. 
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Linear correlation is similarly computed by first 
zero padding the sequences and then performing circular 
correlation on the extended sequences. The steps required 
for this computation are: 




R() = The linear correlation of xnl() and xn2(). 

xnlxn2 



Figure 3.4 Linear Correlation. 

A phenomenon encountered when performing the linear 
correlation operation, using the DFT technique, is 'wrap- 
around' of the output sequence. This is directly at- 
tributable to the required zero padding of the input 
sequences. While it would be a simple matter of software 
manipulation to prevent the wraparound from appearing in the 
final output sequence, it is felt that incorporation of the 
phenomenon is relevant to student comprehension of the 
actual computations involved. Example #4 of Appendix E 
demonstrates the wraparound that occurs when the linear 
correlation of two input sequences is computed. 

The procedures described above as well as a 
comprehensive analysis on use of the DFT technique to 
perform convolution and correlation are presented in Chapter 
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7 of Reference 1. CONCORDT.FOR is a Fortran implementation 
of this technique. Flowcharts describing the structure of 
CONCORDT.FOR and subroutine ZEROPAD are included in Appendix 
E. Also included in this appendix are example problems 
demonstrating the four computations that CONCORDT.FOR is 
capable of performing. 

6 . FFT. FOR 

Similar in purpose to DFT.FOR, FFT . FOR is designed 
to compute the DFT or the IDFT of a complex input sequence 
consisting of up to 256 samples. The advantage FFT. FOR has 
to offer over DFT.FOR is use of the Fast Fourier Transform 
(FFT) technique for computing the DFT. Entire books have 
been dedicated to this subject, most of which include a 
Fortran algorithm for performing the FFT computation. The 
FFT technique used by FFT. FOR is a Radix-2, Decimation In 
Time algorithm adapted from the psuedocode design appearing 
in Reference 1 [pp. 510-512]. Included in this reference is 
a software flowchart of the subroutine REVERSAL which is 
discussed in more detail below. 

The program consists of the main program FFT. FOR and 
the subroutines FFT, REVERSAL, INVFFT , and SAMPLE. The main 
program calls subroutine FFT to perform the actual FFT 
computations. In order to use the Decimation In Time 
algorithm, the input sequence must be reordered according to 
a 'bit-reversal' scheme. This scheme involves changing the 
position that each sample holds in the input sequence by 
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reversing the order of the bits corresponding to the 

positional address of each sample. For example, an 8-sample 

input sequence would have the binary positional addresses: 

[000 001 010 011 100 101 110 111]. After reversing the 

order of the sequence, the binary addresses of the bit- 

reversed sequence would be: [000 100 010 110 001 101 011 

111], In terms of the Fortran array x(), the 8-element, 

bit-reversed array will contain the original eight values 

but rearranged into the new order: 

x ( 0 ) 
x ( 4 ) 
x ( 2 ) 
x ( 6) 
x(l) 
x ( 5 ) 

X ( 3 ) 

x (7 ) 

Subroutine REVERSAL performs this reordering of the input 
sequence. The main program passes the original input 
sequence to the subroutine in the array xtmp ( ) and the 
subroutine returns the bit-reversed sequence in the array 

x() . 

In addition to the FFT computation, FFT.FOR was 
designed to compute the Inverse Fast Fourier Transform 
( IFFT) . If used for no other reason, the IFFT serves as a 

check on the FFT computation. For example, the user can 
elect to have the FFT of a sequence computed, and as a check 
on the computed results, run the program again but this time 
using the FFT results as input to the IFFT computation. The 
results of this second run should be the original input 
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sequence, with some allowance for single-precision roundoff 
error. Subroutine INVFFT performs the IFFT computation in a 
manner identical to the IDFT computation performed by 
subroutine INVDFT . In fact, the flowcharts of the two 
subroutines, except for the names of the variables, are 
identical . 

Subroutine SAMPLE provides the means to generate the 
input sequence by allowing the user to write the appropriate 
Fortran statements into the space allocated in the sub- 
routine. The user can elect to use this method of data 
generation or can choose to provide the N complex input 
samples in the input file. 

Because FFT.FOR is a Radix-2 algorithm, the input 
sequence must be of length N = 2 m , m = integer. This 
apparent limitation to the utility of the FFT is easily 
overcome in practical applications by either: 1) Requiring 
the sampled input sequence to be of the correct length or; 
2) Zero padding the input sequence until it is of length 
N = 2 m . This later technique is used in the program CON- 
CORFT.FOR presented in the next section. Zero padding 
should not be used to extend a sequence for the purpose of 
computing a periodogram; however, since the addition .of 
zeros will cause erroneous frequency information to appear 
in the periodogram sequence. 

The input and output sequences are stored in tabular 
form in the file FFT. OUT. Additionally, the sequences are 
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written into the file FFT.DAT in a form suitable for 
plotting . 

The software flowcharts of Appendix F depict the 
structure of FFT.FOR and the subroutines FFT , INVFFT and 
REVERSAL. Also included in this appendix are two example 
problems that demonstrate both the FFT and the IFFT 
computations . 

7 . CONCORFT. FOR 

As an application program for the FFT algorithm, 
CONCORFT. FOR is capable of performing any one of the 
following four operations, given two sequences of complex 
input data : 

1. Linear convolution. 

2. Linear correlation. 

3. Circular convolution. 

4. Circular correlation. 

Similar in design to CONCORDT . FOR, this program also 
uses the DFT technique to perform the selected operation. 
Figures 3 . 1 through 3 . 4 describe the computations required 
by each of the four operations. In order to take full 
advantage of the efficiencies of the FFT algorithm, however, 
each of the DFT computations required by CONCORFT. FOR is 
accomplished using an FFT. This design invokes the 

requirement that the input sequences be of length N = 2 m 
(m = integer) , since the FFT subroutine used by the program 
is a Radix-2 algorithm. For the linear convolution/ 
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correlation operations this requirement is easily fulfilled 
by zero padding the sequences to a suitable length. For 
example, if the sequences xnl() and xn2 ( ) are of length N1 = 
4 and N2 = 3, the linear convolution/correlation operations, 
as computed via the DFT technique, require that the input 
sequences be zero padded to the minimum length: N3=N1 + 
N2 - 1 = 6. Since N3 = 6 is not an integer power of two, 
CONCORFT.FOR will further extend the sequences to length 
N3 = 2 3 = 8 by additional zero padding. The extended 
sequences can then be used in the FFT computations. 

While zero padding is intrinsic to CONCORFT . FOR ' s 
linear convolution/correlation operations, its use in 
performing circular convolution/correlation will lead to 
erroneous results. For this reason, CONCORFT.FOR will 
perform circular convolution/correlation only if the input 
sequences are of equal length and the lengths are an integer 
power of two. The program is designed to screen the input 
data to ensure that these requirements are met. Suitable 
error messages are printed on the screen and the program's 
execution is halted if they are not met. 

CONCORFT.FOR accepts input sequences consisting of 
up to 128 complex values. The input sequences xnl() and 
xn2() are assumed to exist in the sample intervals 0 to 
N1 - 1 and 0 to N2 - 1, respectively. The main program 
controls the input/output tasks and calls the appropriate 
subroutines to perform the selected operation. There are 
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six subroutines in all and a brief description of the 
function of each subroutine is as follows: 

1. FFT - Computes the Fast Fourier Transform of a 
sequence. 

2. INVFFT - Computes the Inverse Fast Fourier Transform 
of a sequence. 

3 . REVERSAL - Rearranges a sequence into bit-reversed 
order. 

4 . ZEROPAD - Extends a sequence by adding an appropriate 
number of zero values. 

5. SAMPL1 - Allows the user the capability of generating 

the sequence xnl(). uy providing the appropriate 

Fortran statements in the space allocated in this 

subroutine . 

6. SAMPL2 - Allows the user the capability of generating 

the sequence xn2() by providing the appropriate 

Fortran statements in the space allocated in this 

subroutine . 

A software flowchart describing the design of 

CONCORFT . FOR is provided in Appendix G. Also included in 
this appendix are four example problems, each of which 
demonstrates one of the operations that CONCORFT. FOR is 
capable of performing. 

8 . CONCOR. FOR 



The program CONCOR. FOR is designed to compute either 
the linear convolution or the linear correlation of the two 
input sequences xnl(n) and xn2(n). The non-zero values of 
the sequence xnl(n) must exist in the range: nsl < n < nel. 
Similarly, the non-zero values of xn2(n) must exist in the 
range ns2 < n < ne2. The constraints on the values nsl, 
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nel, ns2, ne2 are: - 128 < nsl < nel < 128 and - 128 < 

ns2 < ne2 < 128. 

Unlike the frequency domain techniques used to 
perform convolution and correlation in CONCORDT.FOR and 
CONCORFT . FOR, all computations performed by this algorithm 
are done in the time domain. For linear convolution, 
Equation (3.7) applies. 

00 

yn(n) = 2 xnl (m) *xn2 (n-m) 

m=-oo 

(3.7) 

For linear correlation, as it is performed by this al- 
gorithm, Equation (3.8) applies. 

00 

R (p) = 2 xnl (m) *xn2 (p+m) 

xnlxn2 m=-°o 

(3.8) 

The program consists of the main program C0NC0R.F0R 
and the subroutines SAMPL1, SAMPL2 , CONVOL, and CORREL. 
Subroutines SAMPL1 and SAMPL2 allow the user to generate 
either of the input sequences by providing the appropriate 
Fortran statements in the space provided in the subroutines. 
Subroutine CONVOL is called by the main program to compute 
the linear convolution of the two sequences, according to 
Equation (3.7). The computations are necessarily limited to 
include only the non-zero ranges of the two input sequences. 
Subroutine CORREL is called by the main program to compute 
the linear correlation of the two input sequences, according 
to Equation (3.8). Similar to CONVOL, the computation is 
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limited to the non-zero ranges of the input sequences. An 
alternate method of computing the linear correlation would 
be to reverse the sequence of values stored in xnl(n) and 
then to compute the linear convolution of the resulting 
sequences [Ref. l:p. 432]. This method is not used in this 
algorithm. 

Appendix H contains flowcharts that describe the 
main program, as well as the subroutines CONVOL and CORREL. 
The appendix also includes example problems that demonstrate 
the performance of CONCOR.FOR. 

9 . DIFFEO . FOR 

The program DIFFEQ.FOR is designed to compute the 
iterative solution to a linear, time-invariant (LTI) 
difference equation. The program will compute the solution 
for up to four distinct equations, each of the form: 

y(ns) = a(l)*y(ns-l) + a(2)*y(ns-2) + ... + a(N)*y(ns-N) + 
b ( 0) *x (ns) + b ( 1) *x ( ns-1) + ... + b(L)*x(ns-L) 

(3.9) 

The solution to each equation is computed for values 
of ns in the range 0 < ns < nstop, where nstop can be 
assigned any integer value in the range 0 < nstop < 300. 
The input sequence x(ns) is assumed to be zero for values of 
ns less than zero. The parameter L corresponds to the 
maximum number of delays in the input sequence and can be 
assigned any integer value in the range 0 < L < 128. 
Similarly, the parameter N corresponds to the maximum number 
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of delays in the output sequence and can be assigned any 
integer value in the range 0 < N < 128. 

To run the program, the user must provide the 
parameters N, L and nstop, as well as the coefficients 
a(l)...a(N), and b(0)...b(L). For values of N > 0, the user 
must also provide the initial condition sequence y(-N)... 
y(-l) . The user has the option of providing the values of 
x(ns) in the input file or generating the sequence through 
use of the subroutine XGEN . All of the aforementioned 
inputs must be provided for each difference equation to be 
solved . 

The program consists of the main program DIFFEQ . FOR 
and the subroutines DIFFEQ and XGEN. Flowcharts of the main 
program and the subroutine DIFFEQ are provided in Appendix 
I. The program is a computer implementation of the 

psuedocode algorithms presented in Reference 1 [pp. 84-86]. 
Also presented in Appendix I are two example problems that 
demonstrate the capabilities of DIFFEQ. FOR. 

10. STATEO . FOR 

The final problem solving program is designed to 
compute the iterative solution to a set of linear, time 
invariant state equations. The state and output equations 
are assumed to be of the form: 
v(ns+l) = Av(ns) + Bx(ns) 

(3.10) 

y(ns) = Cv(ns) + Dx(ns) 

(3.11) 
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where : 



* x() is the M x 1 input vector, 

* v() is the N x 1 state vector, 

* y() is the Q x 1 output vector, 

* A is an N x N matrix of real constants, 

* B is an N x M matrix of real constants, 

* C is an Q x N matrix of real constants and, 

* D is an Q x M matrix of real constants. 

The program will compute the solution to the system 

of equations for values of ns in the range 0 < ns < nstop. 

The limits on the parameters M, N, Q, and nstop are: 

0 < M < 4 
0 < N < 10 

0 < Q < 4 

0 < nstop < 99. 

(3.12) 

These parameters as well as the values for the matrices A, 
B, C, D, and the vector comprising the initial condition of 
the system (vector v() at ns = 0) must be provided by the 
user in the input file. The user can elect to provide 
values for the input vector x(ns) in the input file, or, 
alternatively, may choose to generate these values by 
writing the appropriate Fortran statements into subroutine 
XGEN . The output of the program is the time-history of the 
vector y(ns); however, the program stores all values of the 
vectors x(ns) , v(ns) , and y(ns) in the tabular output file 
STATEQ . OUT . 
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The program consists of the main program STATEQ.FOR 
and the subroutines ITRATE and XGEN. The algorithm is a 
Fortran implementation of a design adapted from Reference 1 
[pp. 762-765] . The main program reads the input parameters 
from the input file and calls subroutine ITRATE to compute 
the solution to the state equations. Subroutine XGEN exists 
for the sole purpose of allowing the user the option of 
generating the input sequence (s) internally, rather than 
providing the values in the input file. Appendix J includes 
the software flowcharts of the main program and the 
subroutine ITRATE. Also included in this appendix are two 
example problems that demonstrate the capabilities of 
STATEQ.FOR. 

B. PLOTTING PROGRAM 
1. PLOTDAT. FOR 

The sole purpose of the program PLOTDAT. FOR is to 
create 2-dimensional (2-D) graphs of values read from an 
input file. The program prompts the user for the name of 
the input file and will create up to nine 2-D plots, each 
consisting of up to 999 data points. Each plot requires 
three labels: 

1) the title of the plot, 

2) the x-axis label and, 

3) the y-axis label. 

For plots that consist of more than 25 data points, the 
program displays the output by connecting the points through 
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use of a linear interpolation (straight-line) scheme. Plots 
of 25 points or less consist of the symbol ' + ' at the 
tabulated points only. The number of data points comprising 
a given plot, and the plot labels comprise the header 
information required for each plot. In addition to these 
parameters, the ordinate and abscissa values for each point 
to be plotted must be included in the input file. PLOT- 
DAT.FOR reads these values according to the format: fl2.0, 
2x, f 12 . 0 . The first entry corresponds to the ordinate 
value and the second entry, the abscissa value. The F- 
format descriptor was chosen because its use permits values 
written using either the E or F-format descriptors to be 
read from the file. 

The program consists of the main program PLOTDAT . FOR 
and the subroutines SCALE and GRIDD. The main program reads 
the input file and creates the plots. Subroutine SCALE is 
called by the main program to scale the input values so as 
to optimize the clarity of the plots. Subroutine GRIDD will 
overlay a dashed-line grid onto the plot if the user elects 
to have this done. PLOTDAT. FOR requires a Color Graphics 
Adapter (CGA) card to display the plots on the monitor 
screen. In addition, the user can elect to have a printed 
hardcopy of each plot created. However, to facilitate 
printing of the graphs, the system in use must include a dot 
matrix printer. The program will not drive plotters of all 
types. If the system has an Extended Graphics Adapter (EGA) 
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card, rather than the specified CGA card, hardcopy printouts 
of the graphs cannot be created by the program directly. 

The plots included in Appendices A-J were created 
using PLOTDAT . FOR . Appendix K is a software flowchart 
describing the structure of PLOTDAT. FOR and the subroutines 
SCALE and GRIDD. 
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IV. Conclusions and Recommendations 



As the final phase of this project, the eleven programs 
included in the package were distributed on a voluntary 
basis to students enrolled in digital signal processing 
courses. As part of the course requirements, the students 
had to solve a variety of signal processing problems 
representative of the type that the programs were designed 
for. Throughout this software evaluation phase, tht 
students provided feedback as to the utility of the 
programs. While a majority of this feedback was positive, 
three areas of concern warrant attention in this report. 

1. The graphics capability of PLOTDAT . FOR is limited to 
machines with CGA/EGA graphics cards. 

2. In order to get the most use out of the ten problem 
solving programs, the user must have access to a 
Fortran compiler capable of compiling the programs as 
written. 

3. Because the programs are file-driven, the user must 
carefully read the header text of each program in 
order to execute the programs successfully. Although 
the example problems in the header text and the 
corresponding sample input files seem to alleviate 
some of the common formatting errors, new users 
experienced some displeasure with the format require- 
ments . 

The first area of concern, although valid, is consistent 
with the advertised capabilities of PLOTDAT. FOR. As 
graphics software becomes more advanced, PLOTDAT. FOR should 
be updated to incorporate any changes that increase the 
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portability of the program. A caveat to this, however, is 
the obvious temptation to use sophisticated software 
designed for more capable machines at the expense of its 
compatibility with less capable ones. The primary goal of 
the plotting program is portability among the broadest 
possible span of target users. 

The second area of concern is also somewhat warranted. 
The programs were optimally designed for use on a machine 
equipped with a suitable Fortran compiler. The presence of 
a compiler allows the user to add source code to the 
programs, an option particularly useful in generating long 
sequences of input data. To this end, however, any high 
level language can be used to create the input files, as 
long as the required data can be stored in a form compatible 
with the programs. In brief, any Fortran compiler would be 
suitable for generating the input data thus eliminating the 
need for a specific compiler. 

Lastly, the dissatisfaction among the students over the 
file-driven versus menu-driven design of the programs may 
warrant a future design change. The principle concern was 
the rather stringent input formats required by the programs. 
As the students became more experienced with the programs, 
however, these problems subsided somewhat. Nevertheless, 
the programs' input sections can be restructured to 
incorporate the features of both the menu and the file- 
driven designs. As envisioned, in menu-driven mode the 
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programs would prompt the user for each input value, storing 
the values in an input file for future use. This mode, 
despite its time consuming mechanics, would be attractive to 
first-time users who could use the input files created by 
the programs as a guide for subsequent runs. Experienced 
users would create the required input files and run the 
programs in the file-driven mode. This mode is already 
incorporated in the programs as they exist. The redesign of 
the programs; therefore, would only require incorporation of 
a menu-driven mode. Such a design change is fully within 
the capabilities of the Fortran compiler used to create 
these programs. 
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APPENDIX A 



Two digital filter designs are developed in this section to 
demonstrate the performance of the program DIGFREQ.FOR. 
An analysis of the designs includes a listing of the input 
required to execute the program and the corresponding output 
that is produced. The plotting program PLOTDAT . FOR was 
used to plot the output data and hard copies of these plots 
are also included. The software flowchart of the program is 
included as the last pages of this appendix. 

The variable names listed below are used in the Fortran 
source code of DIGFREQ.FOR and in the corresponding 
flowcharts . 

numsys - The integer value that specifies the number of 
distinct filter equations whose parameters occur 
in the input file. 

L - The integer value that specifies the order of 
the numerator polynomial. 

N - The integer value that specifies the order of 
the denominator polynomial. 

dsorce - The character string 1 F* or 'S' denoting whether 
the system coefficients are to be read from the 
input file (F) or generated (S) through use of 
the subroutine COEFF. 

thetaO - The starting value of © (rad) . 

numpts - The integer value that specifies the desired 
number of frequency points. 

yscal - The character string 'STD' or 'LOG' that 
specifies whether standard magnitude (STD) or 
magnitude expressed in decibels (LOG) is to be 
computed . 

b() - The array containing the numerator coefficients. 
c() - The array containing the denominator coeffi- 
cients . 

mh() - The array containing the magnitude values of 
the computed frequency response. 
ph() - The array containing the phase values (degrees) 
of the computed frequency response. 
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Example #1 



This example is identical to the sample problem found in 
the header text of the program. The system is a first order 
low-pass filter with a pole at z = 0.5, and a zero at z = 0.0. 
The filter transfer function, in the form of Equation (3.1), is: 

z 

H ( Z ) = (A. 1) 

z - .5 

The goal is to calculate the frequency response of the filter 
for frequencies in the range: 0 < 0 < 3.14159 (rad) . The 

listings that follow include the input file DIGFREQ . TST 
required to produce 11 output points and the tabular output 
file DIGFREQ. OUT. Also included are plots of the output for 
101 frequency points. An analysis of the data confirms the 
low-pass nature of the filter. 

DIGFREQ. TST 

1 



001 


001 


F 


STD 


.314159 


0.0 


011 




1.0 


0.0 






1.0 


-.5 
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DIGFREO . OUT 



INPUT DATA FOR SYSTEM # 1 

INPUT DATA SOURCEFILE: DIGFREQ . TST 
DEGREE OF NUMERATOR = 1 

DEGREE OF DENOMINATOR = 1 

dsorce = F 

NUMBER OF FREQUENCY POINTS = 11 MAGNITUDE OPTION = STD 

STARTING VALUE OF THETA = . 000000E+00 

INCREMENT OF THETA = .314159E+00 

THE NUMERATOR COEFFICIENTS b ( 0) , b ( 1) . . . b (L) ARE : 

. 1000E+01 . 0000E+00 



THE DENOMINATOR COEFFICIENTS c ( 0 ) , C ( 1 ) . . . C (N) ARE: 
. 1000E+01 - . 5000E+00 



OUTPUT DATA FOR SYSTEM # 1 



THETA 

(RADIANS) 

. 000000E+00 
. 314159E+00 
. 628318E+00 
. 942477E+00 
. 125664E+01 
. 157 080E+01 
. 188495E+01 
. 219911E+01 
. 251327E+01 
. 282743E+01 
. 314159E+01 



MAGNITUDE 

. 200000E+01 
. 182897E+01 
. 150588E+01 
. 122886E+01 
. 103 088E+0 1 
. 894428E+00 
. 800894E+00 
. 737654E+00 
. 696900E+00 
. 674038E+00 
. 666667E+00 



PHASE 

(DEGREES) 

. 000000E+00 
- . 164149E+02 
- . 2 62 677E+02 
298071E+02 
- . 293546E+02 
- . 2 65651E+02 
223862E+02 
173608E+02 
118186E+02 
597793E+01 
484184E-04 



END OF RUN, SYSTEM # 1 
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MAGNITUDE RESPONSE 




x 



Figure A.l Magnitude response of a low-pass filter 

Example #1. 
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THETA (rad) 



PHASE RESPONSE 




Figure A. 2 Phase response of a low-pass filter - 

Example #1. 
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THEIA (rad) 



'Open input file, 
read numsys. 




Figure A. 3 



DIGFREQ.FOR Software 



Flowchart. 
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Generate arrays b() and c() 
according to user provided 
algorithm. 



Figure A. 4 COEFF Subroutine Flowchart. 
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i 



For np = 1, numpts. 



thetav() = thetaO + (np-1) *dlthta 



num - b ( 0 ) 
den = c(0) 

2 =* exp(j0) 



For k = 1, L. 


/ 


V 


i 






num = z*num + b ( k) 





For k = 1, N. 


<r 1 


'! 




den * z*den + 


c(k) 




i 





h = num/den 



mh(np) = magnitude of h 
ph(np) =* phase (degrees) of h 




Y 




mh(np) = 


* 20*log(mh(np) ) 






\ 


/ 






Figure A. 5 DFRESP Subroutine Flowchart. 
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Appendix B 



A fifth-order, low-pass filter is used in this appendix 
to demonstrate the performance of the program ANLGFREQ. FOR. 
The filter transfer function is in the form of Equation 
(3.2). The analysis that follows compares the theoretical 
frequency design specifications of the filter to the 
frequency response computations produced by the program. 
The software flowcharts of the program ANLGFREQ. FOR and the 
subroutine AFRESP are included as the last pages of this 
appendix . 

The variable names listed below are used in the Fortran 
source code of the program and in the corresponding 
flowcharts . 

numsys - The integer value that specifies the number of 
distinct filter equations whose parameters 
occur in the input file. 

L - The integer value that specifies the order of 
the numerator polynomial. 

N - The integer value that specifies the order of 
the denominator polynomial. 

omegaO - The starting value of w (rad/s) for which the 
frequency response is to be calculated. 

dlomga - The increment of w (rad/s) . 

numpts - The integer value that specifies the desired 
number of frequency points. 

yscal - The character string 'STD' or 'LOG' that 
specifies whether standard magnitude (STD) or 
magnitude expressed in decibels (LOG) is to be 
computed . 

b() - The array containing the numerator coeffi- 
cients. 

a() - The array containing the denominator coeffi- 
cients . 

mh() - The array containing the computed magnitude 
value for each frequency point, 
ph ( ) - The array containing the computed phase value 
(degrees) for each frequency point. 
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Example #1 



A fifth-order Chebyshev Low-Pass Filter has the transfer 
function: 



62268.8 

H(s) = r 

+ 10.605s 4 + 337.5s 3 +2342.25s 2 + 23236.9s + 62268.8 

( B . 2 ) 

The filter was designed to have a ripple passband edge 
frequency of w = 15.0 (rad/s) and a maximum ripple of 2 dB 
[Ref. l:pp. 630-637]. The input file ANLGFREQ.IN listed 
below provides the inputs necessary for ANLGFREQ . FOR to 
compute the magnitude (dB) and phase (Deg) response of this 
filter across the frequency range: 0 < w < 20 (rad/s) . 

As can be seen from both the tabular output and the 
accompanying plots the filter specifications have been met. 
The magnitude of 0 db at frequency w = 0 is characteristic 
of this type of normalized low-pass filter. The edge of the 
ripple passband has a magnitude of -2 dB at w = 15 (rad/s) 
and the 2 dB ripple is not exceeded within the ripple 
passband. 



ANLGFREQ.IN 



1 

000 005 021 LOG 

1.0 0.0 

62268 . 8 

1.0 10.605 . 3375E03 2342.25 23236.9 62268.8 
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ANLGFREO . OUT 



INPUT DATA FOR SYSTEM # 1 

INPUT DATA SOURCEFILE: ANLGFREQ . IN 
DEGREE OF NUMERATOR = 0 

DEGREE OF DENOMINATOR = 5 

NUMBER OF FREQUENCY POINTS = 21 MAGNITUDE OPTION = LOG 

STARTING VALUE OF OMEGA = . 000000E+00 

INCREMENT OF OMEGA = .100000E+01 

THE NUMERATOR COEFFICIENTS b(0) / b(l)...b(L) ARE : 

. 6227E+05 



THE DENOMINATOR COEFFICIENTS a ( 0 ) , a ( 1 ) . . . a (N) ARE: 

. 1000E+01 . 1060E+02 .3375E+03 .2342E+04 

. 2 3 2 4E+05 . 62 2 7E+05 



OUTPUT DATA FOR SYSTEM # 1 



OMEGA 
( rad/s) 

. 000000E+00 
. 100000E+01 
. 2 00000E+01 
. 300000E+01 
. 400000E+01 
. 500000E+01 
. 600000E+01 
. 7 00000E+01 
. 800000E+01 
. 900000E+01 
. 100000E+02 
. 110000E+02 
. 12 0000E+02 
. 13 0000E+02 
. 140000E+02 
. 150 000E+02 
. 160000E+02 
. 170000E+02 
. 180000E+02 
. 190000E+02 
. 200000E+02 



MAGNITUDE (dB) 

. 000000E+00 
- . 2 60284E+00 
86808 1E+00 
149418E+01 
189199E+01 
193554E+01 
158803E+01 
-.91717 1E+00 
196446E+00 
. 423856E-01 
519360E+00 
143810E+01 
198221E+01 
158172E+01 
216956E+00 
201998E+01 
- . 831394E+01 
140297E+02 
187218E+02 
226985E+02 
261739E+02 



PHASE 

(DEGREES) 

. 0000 00E+00 
209105E+02 
395377E+02 
553515E+02 
691887E+02 
- . 82 3 632E+02 
963804E+02 
112999E+03 
133940E+03 
159062E+03 
. 17 5548E+03 
. 1537 02E+03 
. 134785E+03 
. 1142 49E+03 
. 804525E+02 
. 233437E+02 
135395E+02 
- . 30036 1E+02 
391769E+02 
- . 4 518 68E+02 
495617E+02 



END OF RUN, SYSTEM #1 
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MAGNITUDE RESPONSE 




s*e 

*c 



X 








or* 




Figure B.l 



Magnitude response of 
Filter - Example 



a Chebyshev Low-Pass 

# 1 . 



54 



PHASE RESPONSE 




Figure B.2 Phase response of a Chebyshev Low-Pass 

Filter -Example #1. 
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(s/spumiHO 




Write results to files 
ANLGFREQ . OUT and ANLGFREQ.DAT, 



END 



Figure B.3 ANLGFREQ. FOR Software Flowchart. 
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Figure B.4 AFRESP Subroutine Flowchart. 
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Appendix C 



As a practical exercise to demonstrate the performance 
of DFT.FOR, two sample sequences were generated and the 
program DFT.FOR was used to compute either the DFT or the 
IDFT of the sequences. Contained in this appendix is a 
brief analysis of the chosen examples including listings of 
the output produced by the program. The software flowcharts 
describing DFT.FOR and the subroutines DFT, INVDFT, and 
SAMPLE are also included. 

The variable names listed below are used in the Fortran 
source code of the program and in the corresponding 
flowcharts . 

N - The integer value that specifies the number of 
complex samples contained in the input sequence 
xin ( ) . 

dsorce - The character string ' F' or 'S' that specifies 
whether the input data is to be read from the 
input file (F) or generated (S) through use of 
the subroutine SAMPLE. 

option - The character string 'DFT' or 'INV' that 
specifies the computation to be performed. 
xin() - The complex array containing the N samples of 
the input sequence. A sequence consisting of 
only 'real' numbers is stored as values having 
an 'imaginary' part of 0.0. 

xout ( ) - The complex array containing the N output 
values . 

xmag ( ) - The array containing the N values of the output 
magnitude. 

xph ( ) - The array containing the N values of the output 
phase (Degrees) . 

wm - The complex value: wm = e”3 27r ^ c / N . 
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Example #1 



For the first example problem a unit ramp sequence 
consisting of 5 values was input to DFT.FOR. The goal was 
to compute the DFT of the sequence. This example problem is 
also developed in the header text of DFT.FOR and can be run 
by the user by selecting Test Mode and entering 'DFT.TST' 
when prompted for the name of the input file. The listings 
that follow include the input file DFT.TST and the tabular 
output file DFT. OUT. 



DFT.TST 



005 
0.0 
1.0 
2 . 0 

3 . 0 

4.0 



F 



0.0 

0.0 

0.0 

0.0 

0.0 



DFT 
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DFT.OUT 



INPUT DATA SOURCEFILE: DFT.TST 

VALUE OF N = 5 dsorce = F option 



INPUT DATA 



SAMPLE # 
0 
1 
2 

3 

4 



REAL 

. OOOOOOE+OO 
. 100000E+01 
. 200000E+01 
. 300000E+01 
. 400000E+01 



IMAGINARY 
. 000000E+00 
. 000000E+00 
. OOOOOOE+OO 
. 000000E+00 
. OOOOOOE+OO 



OUTPUT DATA 



SAMPLE * REAL 



IMAGINARY MAGNITUDE 



0 

1 

2 

3 

4 



.100000E+02 
-.250000E+01 
- . 250000E+01 
-.250000E+01 
-.250000E+01 



.OOOOOOE+OO 
. 344096E+01 
. 312300E+00 
-.312299E+00 
- . 344096E+01 



. 100000E+02 
. 425325E+01 
. 262366E+01 
•262366E+01 
. 425326E+01 



DFT 



PHASE 
(DEGREES) 
•OOOOOOE+OO 
. 126000E+03 
. 162000E+03 
162000E+03 
126000E+03 
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Example #2 



As an extension to the first example problem and to 
demonstrate the IDFT option, the DFT results of the first 
problem were input to the program and the IDFT was computed. 
As one would expect, the original unit ramp sequence was 
generated confirming the ability of the program to compute 
either the DFT or its inverse, the IDFT. Numerical roundoff 
corresponding to the single precision accuracy of DFT. FOR 
accounts for the slight deviation between the original unit 
ramp sequence and the results produced by this example. 

DFT. IN 



005 

. 10000E02 
-. 2500E01 
-. 2500E01 
-. 2500E01 
-. 2500E01 



F INV 

0.0 

. 344096E01 
.812300 
-.812299 
-3 .44096 
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DFT . OUT 



INPUT DATA SOURCEFILE: DFT. IN 

VALUE OF N = 5 dsorce = F option = INV 



INPUT DATA 



SAMPLE # 
0 
1 
2 

3 

4 



REAL 

. 100000E+02 
- . 250000E+01 
- . 250000E+01 
250000E+01 
250000E+01 



IMAGINARY 
. 000000E+00 
. 344096E+01 
. 812300E+00 
- . 812299E+00 
- . 344096E+01 



OUTPUT DATA 



SAMPLE 

0 

1 

2 

3 

4 



REAL 

. OOOOOOE+OO 
. 999998E+00 
.200000E+01 
. 300000E+0 1 
. 400000E+01 



IMAGINARY 

. 238419E-06 
. 210175E-06 
•136523E-06 
. 358854E-06 
. 298563E-06 



MAGNITUDE 

•233419E-06 
. 999998E+00 
. 200000E+01 
♦300000E+01 
. 40000 0E+01 



PHASE 

(DEGREES) 

. 900000E+02 
-.120422E-04 
. 391109E-05 
. 685361E-05 
. 427 659E-05 
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Figure C.l DFT.FOR Software Flowchart. 






Generate xin() according to 
user provided algorithm. 



Figure C.2 



SAMPLE Subroutine 



Flowchart . 
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Figure C.3 INVDFT Subroutine Flowchart. 
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n 




Figure C.4 DFT Subroutine Flow Chart. 
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Appendix D 



Three example problems are developed in this appendix to 
demonstrate the program PRDGRM.FOR. Example #1 is a 
demonstration of the program using a short input sequence. 
A listing of both the input sequence and the output sequence 
are included in the analysis. Examples #2 and 3 require 

long sequences of data and therefore only plots of the input 
and output sequences are included. The software flowchart 
of PRDGRM.FOR is included as the last page of this appendix. 
Since the flowcharts of the subroutines SAMPLE and DFT were 
presented in Appendix C, they are not repeated in this 
appendix. 

The variable names listed below are used in the Fortran 
source code of PRDGRM.FOR and in the corresponding flow- 
charts . 

N - The integer value that specifies the number of 
complex samples contained in the array xn ( ) . 
dsorce - The character string 1 F' or 'S' that specifies 
whether the input data is to be read from the 
input file (F) or generated (S) through use of 
the subroutine SAMPLE. 

yscal - The character string 'STD' or 'LOG' that 
specifies whether the output sequence is to be 
expressed as standard (STD) or decibel (LOG) 
magnitude . 

xn ( ) - The complex array containing the N input 
values. A sequence consisting of only real 
numbers is stored as values having an imaginary 
part of 0.0. 

xk ( ) - The complex array containing the DFT sequence 

corresponding to xn(), i.e., xk() = DFT [ xn ( ) ] . 

Sxx() - The array containing the N values of the 
periodogram sequence. This array contains the 
output sequence of the program. 
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Example #1 



Because PRDGRM . FOR uses the DFT algorithm as part of 
the periodogram computation, a simple demonstration of the 
program's accuracy is to compare the results of PRDGRM. FOR 
to the results of DFT. FOR using the same input sequence for 
both programs. The sequence chosen was the five samples of 
the unit ramp. The listings that follow include the input file 
PRDGRM. TST required to run this problem, as well as the 
tabular output file PRDGRM. OUT containing the computed 
results. The DFT results were presented in Appendix C. 

By comparing the output sequences of the two programs it 
is easy to see the relationship between the DFT and the 
periodogram as described by Equation (3.6). 

This example problem also appears in the header text of 
PRDGRM. FOR. The user can run this problem by selecting 
Test Mode and entering 'PRDGRM. TST' as the input file name. 



PRDGRM. TST 



005 
0.0 
1.0 
2 . 0 

3 . 0 

4 . 0 



F 



0.0 

0.0 

0.0 

0.0 

0.0 



STD 
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PRDGRM . OUT 



INPUT DATA SOURCEFILE: PRDGRM. TST 

VALUE OF N = 5 dsorce = F MAGNITUDE OPTION = STD 



n 

0 

1 

2 

3 

4 



INPUT DATA 
xn() 



REAL 

. 0000E+00 
. 1000E+01 
. 2000E+01 
. 3000E+01 
. 4000E+01 



IMAGINARY 
. 0000E+00 
. 0000E+00 
. 0000E+00 
. 0000E+00 
. 0000E+00 



OUTPUT DATA 

k Sxx(k) 

0 . 2 000E+02 

1 . 3 618E+01 

2 . 1382E+01 

3 . 1382E+01 

4 . 3618E+01 
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Example # 2 



A low-pass filter presented earlier had the transfer 
function: 

z 

H(z) = 

z - . 5 

(D.l) 

The impulse response of this filter can be computed 

iteratively by the corresponding difference equation: 

y(n) = x(n) + .5y(n-l) ^ n = 0, 1, N-l 

where: x(n) =1.0 at n = 0 

0.0 otherwise 



The performance of PRDGRM. FOR can be evaluated by 
computing the periodogram of the resulting impulse response 
and comparing the results to the frequency response of the 
filter. The frequency response was computed previously 
using DIGFREQ . FOR and a plot of the frequency response 
appears ir. Appendix A. 

The subroutine SAMPLE was used to generate 200 samples 
of the filter's impulse response. Included on the page that 
follows is a plot of the log periodogram sequence. The 
results produced by PRDGRM. FOR as well as those produced by 
DIGFREQ. FOR confirm the low-pass nature of the filter. The 
disparity of the plots can be attributed somewhat to the 
implied rectangular windowing of a finite-length sequence 
used as an input to the periodogram algorithm. Because of 
this windowing effect, the use of the periodogram as a 
spectral estimation technique is somewhat limited. 
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Crs OJ 




Figure D.l Periodogram of a low-pass filter's impulse 

response - Example #2. 
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Example # 3 



As a final demonstration of PRDGRM.FOR, the subroutine 
SAMPLE was used to generate the input sequence according to 
the equation: 

x(n) = 2 . Ocos (27rn500/5000 ) 



(D.3) 



The sequence consists of N = 200 samples. Plots of the 
input sequence as well as the output sequence are included 
on the pages that follow. For this sequence, the frequency 
of the continuous-time signal is f = 500 Hz and the sampling 
frequency is f s = 5000 Hz. Since 5000 Hz corresponds to 0 = 
27 r rad, the periodogram should peak at 0 = n/5 rad, the 
digital frequency that corresponds to f = 500 Hz. To 
demonstrate the ability of the program to convert the output 
to decibels, the input parameter yscal was assigned the 
value : ' LOG ' . 

An analysis of the: plotted output confirms the an- 
ticipated results. The signal, consisting of a pure 
sinusoid, has a digital frequency of n/5 rad when sampled 
at 5000 Hz. The plot of the periodogram remains below 0 dB 
for all frequencies except © = 7 t /5 rad. 
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INPUT SEQUENCE (REAL) 



ON 0^3 

CTn 







Figure D.2 



input sequence x(n) = 2cos(2jrn500/5000) - 

Example #3. 
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SAMPLE » (n) 



Log Periodogra* 



9s c*a 
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Figure D.4 PRDGRM. FOR Software Flowchart. 
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Appendix E 



As a demonstration of the capabilities of CONCORDT.FOR 
this appendix presents four example problems. Each example 
problem demonstrates one of the following computations: 

1. Circular convolution. 

2. Linear convolution. 

3. Circular correlation. 

4. Linear correlation. 

A brief analysis of the output generated by the program 

is included for each problem. The examples that use short 

data sequences include tabular listings of the input and 
output values. The examples that require longer sequences 
include plots of the input and output sequences as generated 
by PLOTDAT.FOR. The last pages of this appendix are the 
flowcharts of CONCORDT.FOR and the subroutine ZEROPAD. 
Flowcharts of subroutines DFT, INVDFT, SAMPL1 and SAMPL2 are 
not included in this appendix as they have been presented 
previously . 

The variable names listed below are used in the Fortran 

source code of CONCORDT.FOR and in the corresponding 

flowcharts . 

N1 - The integer value that specifies the number of 
complex samples contained in the input sequence 
xnl ( ) . 

N2 - The integer value that specifies the number of 
complex samples contained in the input sequence 
xn2 ( ) . 

dsrcel - The character string ' F' or 'S' that specifies 
whether the input sequence xnl ( ) is to be read 
from the input file (F) or generated (S) 
through use of the subroutine SAMPL1. 
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dsrce2 



- The character string ' F' or 'S' that specifies 
whether the input sequence xn2 ( ) is to be read 
from the input file (F) or generated (S) 
through use of the subroutine SAMPL2 . 
option - The character string that specifies the 
operation to be performed as follows: 

1 LCON ' = Linear convolution, 

'LCOR' = Linear correlation, 

' CCON ' = Circular convolution, 

' CCOR ' = Circular correlation. 
xnl() - The first complex input sequence of length Nl. 
xkl ( ) - The sequence containing the DFT values of the 
array xnl(), i.e., xkl() = DFT[xnl()]. 
xn2 ( ) - The second complex input sequence of length N2. 
xk2 ( ) - The sequence containing the DFT values of the 
array xn2 ( ) , i.e., xk2 ( ) = DFT[xn2()]. 
xn3 ( ) - The complex output sequence. 

xk3 ( ) - The sequence containing the DFT values of the 
array xn3 ( ) , i.e., xk3 ( ) = DFT[xn3()]. 
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Example #1 



The circular convolution of the two sequences: xnl() = 
[ 1 3 5 7 ] and xn2() = [ 2 4 1 8 ] is demonstrated in 
this example. The listings that follow include the input 
file CONCORDT . IN and the tabular output file CONCORDT . OUT . 
The result of the circular convolution of these two 
sequences can be easily verified by manually performing the 
calculations. Manual calculation results in the sequence 
xn3 ( ) = [ 59 57 79 45 ] . This compares favorably with 
the computer generated output sequence. 



CONCORDT. IN 



004 

004 

1.0 

3 . 0 

5.0 

7.0 

2 . 0 

4.0 

1.0 
8 . 0 



F 

F 



0.0 
0 . 0 
0 . 0 
0.0 
0.0 
0.0 
0.0 
0.0 



CCON 
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CONCORDT . OUT 



INPUT DATA SOURCEFILE: CONCORDT. IN 
N1 = 4 dsrcel = F 

N2 = 4 dsrce2 = F 

option = CCON 



INPUT DATA 



n 

0 

1 

2 

3 



xnl ( ) 

REAL 

. 100000E+01 
. 300000E+01 
. 500000E+01 
. 700000E+01 



IMAGINARY 
. OOOOOOE+OO 
. OOOOOOE+OO 
. OOOOOOE+OO 
. OOOOOOE+OO 



n 

0 

1 

2 

3 



xn2 ( ) 

REAL 

. 200000E+01 
. 400000E+01 
. 100000E+01 
. 800000E+01 



IMAGINARY 
. OOOOOOE+OO 
. OOOOOOE+OO 
. OOOOOOE+OO 
. OOOOOOE+OO 



OUTPUT DATA 



n 

0 

1 

2 

3 



xn3 () 

REAL 

. 590000E+02 
. 570000E+02 
. 790000E+02 
. 450000E+02 



IMAGINARY 
. 190735E-05 
. 560272E-06 
- . 8559 14E-05 
. 551928E-05 
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Example #2 



The next operation to be demonstrated is linear 
convolution. For this operation the two input sequences 
chosen were: xnl() = [ 1 2 3 4 ] and xn2 ( ) = [ 5 4 3 

2 1 ] . As in the first example, the input sequences are 
short enough to check the solution via manual calculations. 
The listings that follow include both the input file 
CONCORDT . TST , as well as the output file CONCORDT . OUT . 
Manual calculation of the linear convolution results in the 
sequence: xn3() = [ 5 14 26 40 30 20 11 4 ]. The output 

produced by the program results in the same solution. 

This example also appears in the header text of the 
program. The user can run this problem by selecting Test 
Mode and entering ' CONCORDT . TST ' as the name of the input 
file. 



CONCORDT. TST 



004 

005 
1.0 
2 . 0 

3 . 0 

4 . 0 

5.0 

4 . 0 

3 . 0 

2 . 0 
1.0 



F 

F 



0.0 
0 . 0 
0.0 
0.0 
0.0 
0.0 
0.0 
0 . 0 
0 . 0 



LCON 
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CONCORDT . OUT 



INPUT 


DATA SOURCEFILE: CONCORDT. TST 


N1 = 


4 dsrcel = F 


N2 = 


5 dsrce2 = F 


option 


= LCON 





INPUT 


DATA 




xnl ( 


) 


n 


REAL 


IMAGINARY 


0 


. 100000E+01 


. 000000E+00 


1 


. 2 00000E+01 


. 000000E+00 


2 


. 300000E+01 


. 000000E+00 


3 


. 400000E+01 


. 000000E+00 




xn2 ( 


) 


n 


REAL 


IMAGINARY 


0 


. 500000E+01 


. 000000E+00 


1 


. 400000E+01 


. 000000E+00 


2 


. 300000E+01 


. 000000E+00 


3 


. 200000E+01 


. 000000E+00 


4 


. 100000E+01 


. 000000E+00 





OUTPUT 


DATA 




xn3 ( 


) 


n 


REAL 


IMAGINARY 


0 


. 500000E+01 


. 953*74E-06 


1 


. 14 0000E+02 


303457E-05 


2 


. 260000E+02 


- . 756009E-05 


3 


. 400000E+02 


- . 4 04 610E-05 


4 


. 300000E+02 


. 217716E-05 


5 


. 200000E+02 


. 7 62858E-05 


6 


. 110000E+02 


. 89 2 13 0E-05 


7 


. 400001E+01 


. 472 04 5E-05 



81 



Example #3 



Using the same sequences that were used in Example #1, 
this example problem demonstrates the circular correlation 
operation. The input sequences are repeated here for ease 
of analysis: xnl() = [ 1 3 5 7 ] and xn2 ( ) = [ 2 4 1 
8 ]. A listing of the tabular output file CONCORDT.OUT is 
included on the page that follows. The result of performing 
the calculations manually is the sequence xn3 ( ) = [ 75 61 63 
41 ] . This compares favorably with the solution generated 
by the program. 
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CONCORDT . OUT 



INPUT DATA SOURCEFILE: CONCORDT. IN 
N1 = 4 dsrcel = F 

N2 = 4 dsrce2 = F 

option = CCOR 



INPUT DATA 



n 

0 

1 

2 

3 



xnl() 

REAL 

. 100000E+01 
. 300000E+01 
. 500000E+01 
. 700000E+01 



IMAGINARY 
. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 



n 

0 

1 

2 

3 



xn2 ( ) 

REAL 

. 200000E+01 
. 400000E+01 
. 100000E+01 
. 800000E+01 



IMAGINARY 
. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 



OUTPUT DATA 



n 

0 

1 

2 

3 



xn3 ( ) 

REAL 

. 750000E+02 
. 610000E+02 
. 630000E+02 
. 410000E+02 



IMAGINARY 
. 000000E+00 
108481E-05 
. 126364E-05 
- . 480426E-05 
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Example #4 



This final example problem demonstrates the linear 

correlation computation. The sequence xnl() consists of 128 

samples of the unit step function and the sequence xn2() 

consists of 128 samples of a square wave. The goal is to 

compute the linear correlation of the two sequences i.e., the 

sequence: R() . Plots of the two input sequences, 

xnlxn2 

xnl() and xn2(), as well as the output sequence R() are 
provided on the pages that follow. Manual calculation of the 
solution to this problem is somewhat impractical. However, 
the plotted data allows the user to verify that the results are 
correct through graphical analysis. The wraparound 
phenomenon discussed in Chapter III is evident from the plot 
of the output sequence. The actual non-zero values for the 
linear correlation of these two input sequences, as they are 
defined in this problem, consists of the computed output 
sequence truncated at sample n = 127. 

The linear correlation of two real sequences results in a 
sequence that is also real. Figure E.4 is a plot of the 
imaginary part of the output sequence for this example 
problem. These non-zero values result from the use of 
single-precision computations as part of the DFT algorithm. 
Since the user will experience similar results, the plot of the 
imaginary values is included in this analysis. 
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INPUT SEQUENCE xnl (REAL) 



xc 

Xc 





m 

•M 



OJ 





$ 



X 




Figure E.l Input sequence xnl(n) - Example #4 
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SAMPLE I (n) 



INPUT SEQUENCE xn2 (REAL) 



r— cva 
04 




Figure E.2 Input sequence xn2(n) - Example #4. 
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SAMPLE I (n) 



Linear Correlation 



^ cva 
m 




$ 



X 




Figure E.3 The result of linear correlation (real part) 

Example #4. 
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SAMPLE « (n) 



Linear Correlation 
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SAMPLE I (n) 



(Open input file 



Read Ml. dsrcal. 

Raad M2. dsrc«2 , option 




Figure E.5 CONCORDT.FOR Software Flowchart. 
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Figure E.6 ZEROPAD Subroutine Flowchart. 
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Appendix F 



The program FFT.FOR computes either the FFT or the IFFT 
of a complex sequence of input data. This appendix contains 
an example problem that demonstrates each of these computa- 
tions. The final pages of this appendix are the software 
flowcharts of the main program FFT.FOR and the subroutines 
FFT, INVFFT, and REVERSAL. 

Development of the FFT algorithm is somewhat involved 
and in any case beyond the scope of this report. However, 
in order to make the software flowcharts and corresponding 
Fortran source code more understandable, the following 
synopsis pertains to the FFT algorithm as developed in 
Chapter 8 of Reference 1 and implemented by this program. 
The variable names used throughout correspond precisely to 
those presented in the reference. 

The FFT computation for a sequence of length N = 2 m 
values is broken up into m stages. Each stage consists of 
N/2 two-point DFT computations called 'butterflies'. In an 
effort to increase the computational efficiency of the 
algorithm, each butterfly occurring within a given stage and 
requiring use of the same weighting factor (W = e~3 27rr / N ) is 
computed in a single loop, thus eliminating the requirement 
to recompute the weighting factor for each consecutive 
butterfly. The addresses (array indices) of the two values 
that participate in a butterfly computation are assigned the 
values: itop and ibot. The value corresponding to the 
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separation between these indices is the value iwidth, i.e., 
iwidth = ibot - itop. The tradeoff of grouping the 
butterfly computations by their weighting factors is the 
determination of the correct participants for each butterfly 
in the group. The program determines the addresses of these 
participants through use of the values itop, ibot and 
iwidth. The efficiency gained by grouping the butterflies 
according to their weighting factors is a function of the 
number of values (N) comprising the input sequence. 

The listing below further explains the function of the 
individual variables as they appear in the software. 

m - The integer value that specifies the number of 
complex samples contained in the input 
sequence, i.e., N = 2 m . 

dsorce - The character string ' F' or 'S' that specifies 
whether the input sequence xtmp ( ) is to be read 
from the input file (F) or generated (S) 
through use of the subroutine SAMPLE. 

option - The character string 1 FFT 1 or 'INV' that 
specifies the computation to be performed. 

xtmp ( ) - The complex input sequence of length N. 

x() - The array containing the original input 

sequence but in bit-reversed order. After the 
subroutine FFT or INVFFT is called, this array 
contains the results of the FFT/IFFT computa- 
tion in rectangular form, i.e., (real, 

imaginary) . 

xmag() - The array containing the magnitude values of 
the output sequence. 

xph() - The array containing the phase (degrees) values 
of the output sequence. 

L - The integer value corresponding to the stage 

being computed. 

iwidth - The integer value corresponding to the address 
separation of the participants in a butterfly 
computation. 

itop - The integer value corresponding to the array 

index of the first participant in a butterfly 
computation. 
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ibot 



- The integer value corresponding to the array 
index of the second participant in a butterfly 
computation. 

ispace - The integer value corresponding to the address 
separation between first participants in 
consecutive butterflies. 

r - The value corresponding to the index of the 
weighting factor. 

W - The complex weighting factor W = e _ I) 27 rr/N 
involved in each butterfly computation, 
maddr - The integer value corresponding to the original 
address of the elements of the input sequence, 
newaddr - The integer value corresponding to the new 
address assigned as a result of the bit- 
reversal algorithm. 
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Example #1 



This example demonstrates both the FFT and the IFFT 
computations. The input sequence consists of N = 8 (m = 3) 
samples of the real sequence xtmp ( ) =[0123400 
0 ] . The imaginary part of each sample is assigned the 
value 0. Included on the page that follows are listings of 
the input file FFT.TST required to run this example problem, 
as well as the tabular output file FFT. OUT. In order to 
reproduce the original input sequence, the FFT results of 
the sequence were input to the program on a second run and 
the IFFT of this sequence was computed. Listings of the 
input and output files corresponding to this second run are 
also included. 

This example problem is also developed in the header 
text of FFT. FOR and can be run by the user in Test Mode by 
using the data prestored in the input file FFT.TST. 
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FFT.TST 



3 

0.0 

1.0 

2.0 

3.0 

4 . 0 
0.0 
0.0 
0.0 



F FFT 

0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 



FFT. OUT 



INPUT DATA SOURCEFILE: FFT.TST 

VALUE OF IE = 3 VALUE OF N (2**m) = 8 

dsorce = F option = FFT 



INPUT DATA 



INPUT DATA 
(BIT-REVERSED ORDER) 



SAMPLE 

0 

1 

2 

3 

4 

5 

6 
7 



REAL 

.OOOOOOE+OO 
. 100000E+Q1 
. 200000E+01 
.300000E+01 
.400000E+01 
.000000E+00 
.000000E+00 
.000000E+00 



IMAGINARY 

.000000E+00 

.000000E+00 

.000000E+00 

.000000E+00 

.000000E+00 

.000000E+00 

.000000E+00 

.000000E+00 



REAL 

.000000E+00 
. 400000E+01 
. 200000E+01 
.000000E+00 
. 100000E+01 
.000000E+00 
. 300000E+01 
.000000E+00 



IMAGINARY 
.000000E+00 
.OOOOOOE+OO 
.OOOOOOE+OO 
.OOOOOOE+OO 
.OOOOOOE+OO 
.OOOOOOE+OO 
.OOOOOOE+OO 
. OOOOOOE+OO 



OUTPUT DATA 



SAMPLE if REAL 



IMAGINARY 



0 

1 

2 

3 

4 

5 

6 
7 



. 100000E+02 
- . 541421E+01 
. 200000E+01 
- . 253579E+0 1 
. 200000E+01 
- . 258 579E+01 
. 200000E+01 
- . 54 1421E+01 



.OOOOOOE+OO 
- . 482843E+01 
. 200000E+01 
- . 828427E+00 
.OOOOOOE+OO 
. 828427E+00 
- . 200000E+01 
• 48284 3E+01 



MAGNITUDE 

. 100000E+02 
. 725443E+01 
. 2S2S43E+01 
. 271525E+01 
. 200000E+01 
. 271525E+01 
• 232343E+01 
. 725448E+01 



PHASE 
(DEGREES) 
.OOOOOOE+OO 
138273E+03 
. 450000E+02 
- . 16223 6E+03 
.OOOOOOE+OO 
. 16223 6E+03 
- . 450000E+02 
. 13 8273E+03 
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simm^uMpo 



FFT. IN 



3 

10.0 

-5.41421 

2 . 0 

-2 . 58579 

2 . 0 

-2 . 58579 

2 . 0 

-5.41421 



F 

0.0 

-4.82843 

2 . 0 

-.828427 

0.0 

. 828427 
- 2.0 
4.82843 



INV 



FFT . OUT 



INPUT DATA SOURCEFILE: FFT. IN 

VALUE OF m = 3 VALUE OF N (2**m) = 8 

dsorce = F option = INV 





INPUT DATA 




INPUT DATA 










(BIT-REVERSED ORDER) 


SAMPLE # 


REAL 


IMAGINARY 


REAL 


IMAGINARY 


0 


. 100000E+02 


. 000000E+00 


. 100000E+02 


. 000000E+00 


1 


-.541421E+01 


- . 482843E+01 


. 200000E+01 


• OOOOOOE+OO 


2 


•200000E+01 


•200000E+01 


. 200000E+01 


. 200000E+01 


3 


- .25357 9E+01 


- • 828427E+00 


• 200000E+01 


- . 2 00000E+01 


4 


. 200000E+01 


. 000000E+00 


- . 54142 1E+01 


-• 432843E+01 


5 


-.253579E+01 


. 323427E+00 


- • 253579E+01 


. 323427E+00 


6 


• 200000E+01 


- . 2 00000E+01 


- . 258579E+01 


-• 328427E+00 


7 


- • 541421E+01 


• 432843E+01 


- • 541421E+01 


• 432343E+01 



OUTPUT DATA 



SAMPLE # REAL 



IMAGINARY 



. OOOOOOE+OO 
. 100000E+01 
•200000E+01 
. 300000E+01 
. 400000E+01 
-. 172853E-05 
-. 834465E-06 
. 715256E-06 



. 000000E+00 
-. 782270E-09 
. 437114E-07 
. 218557E-07 
. 000000E+00 
-. 429291E-07 
— . 437114E-07 
. 218557E-07 



MAGNITUDE 

. 000000E+00 
. 100000E+01 
. 200000E+01 
. 300000E+01 
. 400000E+01 
. 172907E-05 
. 835609E-06 
. 715590E-06 



PHASE 

(DEGREES) 

. 000000E+00 
-. 448207E-07 
. 125224E-05 
. 417413E-06 
.000000E+00 
-. 178577E+03 
- . 177001E+03 
. 175021E+01 
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Figure F.l FFT.FOR Software Flowchart. 
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Figure F.2 FFT Subroutine Flow Chart. 
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Figure F.3 INVFFT Subroutine Flowchart. 
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Figure F.4 REVERSAL Subroutine Flowchart. 
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Appendix G 



The four computations that CONCORFT.FOR is capable of 
performing are demonstrated by the example problems included 
in this appendix. CONCORFT.FOR, like the other problem 
solving programs, generates an output file (CONCOR.DAT) that 
contains a listing of the input sequence(s), as well as the 
output sequence in a form suitable for plotting. Example #4 
of this appendix includes plots of the input and output 
sequences used for that problem. The plots were produced by 
the program PLOTDAT.FOR. The final pages of this appendix 
are a flowchart of CONCORFT.FOR. Flowcharts of the six 
subroutines called by CONCORFT.FOR are not included in this 
appendix as each was presented previously. 

The variable names listed below are used in the Fortran 
source code of CONCORFT.FOR and in the corresponding 
flowcharts . 

N1 - The integer value that specifies the number of 
complex samples contained in the input sequence 
xnl ( ) . 

N2 - The integer value that specifies the number of 
complex samples contained in the input sequence 
xn2 ( ) . 

dsrcel - The character string 'F 1 or 'S' that specifies 
whether the input sequence xnl ( ) is to be read 
from the input file (F) or generated (S) 

through use of the subroutine SAMPL1 . 
dsrce2 - The character string 1 F' or 'S' that specifies 
whether the input sequence xn2 ( ) is to be read 
from the input file (F) or generated (S) 

through use of the subroutine SAMPL2 . 
option - The character string that specifies the 
operation to be performed as follows: 

' LCON ' = Linear convolution, 

' LCOR 1 = Linear correlation, 



101 



xnl() 
xtmpl ( ) 

xn2 ( ) 
xtmp2 ( ) 

xn3 ( ) 
xtmp3 ( ) 



1 CCON 1 = Circular convolution, 

1 CCOR 1 = Circular correlation. 

The first complex input sequence of length Nl. 

A dummy array used for computations involving 
the array xnl(). 

The second complex input sequence of length N2 . 
A dummy array used for computations involving 
the array xn2 ( ) . 

The complex output sequence. 

A dummy array used for computations involving 
the array xn3(). 
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Example #1 



This example demonstrates the circular convolution 
operation. The input sequences consist of the following 
real values: xnl() = [ 1 3 5 7 ] and xn2() = [ 2 4 1 
8 ] . The result of manually calculating the circular 
convolution of these two sequences is the sequence: xn3 ( ) = 
[ 59 57 79 45 ] . The listings that follow include the 
input file CONCORFT.IN, required to run this problem, and 
the tabular output file CONCORFT.OUT containing the computed 
results. As can be seen from the listing of CONCORFT.OUT, 
the computation produced the anticipated results. 



CONCORFT.IN 



004 


F 


004 


F 


1.0 


0.0 


3 . 0 


0.0 


5.0 


0.0 


7 . 0 


0.0 


2 . 0 


0.0 


4 . 0 


0.0 


1.0 


0.0 


8 . 0 


0.0 



CCON 
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n 

0 

1 

2 

3 

n 

0 

1 

2 

3 

n 

0 

1 

2 

3 



CONCORFT . OUT 



DATA SOURCEFILE: CONCORFT. IN 

4 dsrcel = F N2 = 4 dsrce2 = F 

= CCON 



INPUT DATA 



xnl ( ) 

REAL 

. 100000E+01 
. 300000E+01 
. 500000E+01 
. 700000E+01 

xn? ( ) 

REAL 

. 2 00000E+01 
. 400000E+01 
. 100000E+01 
. 800000E+01 



IMAGINARY 
. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 



IMAGINARY 
. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 



OUTPUT DATA 



xn3 ( ) 

REAL 

. 590000E+02 
. 570000E+02 
. 790000E+02 
. 450000E+02 



IMAGINARY 
. 7 152 56E-06 
. 262268E-06 
715256E-06 
- . 262268E-06 
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Example #2 



This example problem is developed in the header text of 
CONCORFT.FOR and can be run by the user by selecting Test 
Mode and using the input data prestored in the file 
CONCORFT . TST . The goal of this example is to compute the 
linear convolution of the two sequences: xnl() = [ 1 11 

1 ] and xn2() = [ 2 2 2 2 2 ]. The sequence that should 

result from the operation is: xn3() =[2468864 

2 ]. A listing of the input file CONCORFT. TST required to 
run this problem appears below. 



CONCORFT . TST 



F 

F LCON 

0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 



A listing of the tabular output file CONCORFT. OUT is 
included on the page that follows. The computed output 
sequence compares favorably with the anticipated result. 



004 

005 
1.0 
1.0 
1.0 
1.0 
2.0 
2 . 0 
2.0 
2 . 0 
2 . 0 
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CONCORFT . OUT 



INPUT DATA SOURCEFILE: 

N1 = 4 dsrcel = 

option = LCON 

INPUT DATA 



CONCORFT. TST 
F N2 



dsrce2 = F 



xnl ( ) 



n 


REAL 


IMAGINARY 


0 


. 100000E+01 


. 000000E+00 


1 


. 100000E+01 


. 000000E+00 


2 


. 100000E+01 


. 000000E+00 


3 


. 100000E+01 


. 000000E+00 




xn2 () 




n 


REAL 


IMAGINARY 


0 


. 200000E+01 


. 000000E+00 


1 


. 200000E+01 


. 000000E+00 


2 


. 200000E+01 


. 000000E+00 


3 


. 200000E+01 


. 000000E+00 


4 


. 200000E+01 


. 000000E+00 




OUTPUT DATA 






xn3() 




n 


REAL 


IMAGINARY 


0 


. 200000E+01 


. 89407 0E-07 


1 


. 4 00000E+01 


. 421468E-07 


2 


. 600000E+01 


. 754979E-07 


3 


. 800000E+01 


. 168587E-06 


4 


. 800000E+01 


. 894070E-07 


5 


. 600000E+01 


. 421468E-07 


6 


. 400000E+01 


. 754979E-07 


7 


. 200000E+01 


. 168587E-06 
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Example #3 



Using the same input sequences as Example #1, the 
circular correlation operation is demonstrated by this 
problem. The input sequences are: xnl() = [ 1 3 5 7 ] 

and xn2 ( ) = [ 2 4 1 8 ]. For this computation, the 

anticipated result is the sequence: xn3 ( ) = [ 75 61 63 

41 ] . A listing of the tabular output file is included 
below. The computed output sequence, xn3 ( ) , compares 
favorably with the anticipated result. 

CONCORFT . OUT 
INPUT DATA SOURCEFILE: CONCORFT . IN 

N1 = 4 dsrcel = F N2 = 4 dsrce2 = F 

option = CCOR 



INPUT DATA 



n 

0 

1 

2 

3 



xnl ( ) 

REAL 



IMAGINARY 

000000E+00 

000000E+00 

000000E+00 

000000E+00 



. 100000E+01 
. 300000E+01 
. 500000E+01 
. 7 00000E+01 



n 

0 

1 

2 

3 



xn2 ( ) 

REAL 



IMAGINARY 

000000E+00 

000000E+00 

000000E+00 

OOOOOOE+OO 



. 200000E+01 
. 400000E+01 
. 100000E+01 
. 800000E+01 



OUTPUT DATA 



n 

0 

1 

2 

3 



xn3 ( ) 

REAL 



IMAGINARY 
. 000000E+00 
. 198695E-06 
. 000000E+00 
-. 198695E-06 



. 7 50000E+02 
. 610000E+02 
. 630000E+02 
. 4 10000E+02 
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Example #4 



This example problem demonstrates the linear correla- 
tion computation. The sequence xnl() consists of 128 
samples of the unit step function and the sequence xn2 ( ) 
consists of 128 samples of a square wave. The goal is to 
compute the linear correlation of the two sequences, i.e., 

the sequence: R() . Plots of the two input sequences, 

xnlxn2 

xnl() and xn2 ( ) , as well as the output sequence R() are 
provided on the pages that follow. As discussed previously 
(Example #4 of Appendix E) , wraparound of the output 
sequence is produced by the program due to the zero padding 
required by use of the DFT technique. The wraparound 
results in non-zero values of the output sequence in the 
interval: 128 to 254. The plot of the output sequence 

clearly shows the wraparound phenomenon. 

Example #4 of Appendix E also discussed the non-zero 
imaginary output values that are produced by the program 
CONCORDT.FOR when correlating two real input sequences. As 
exhibited by Figure G.4, CONCORFT.FOR produces similar 
results. The non-zero values are attributed to the single 
precision FFT algorithm used in the correlation computation. 
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INPUT SEQUENCE xnl(n) 



c w oa 

0-3 




$ 



X 



Figure G.l Input sequence xnl(n) - Example #4 
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SAMPLE « (n) 



INPUT SEQUENCE xn2(n> 



cva 




Figure G.2 Input sequence xn2(n) - Example #4. 
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SAHPLE I (n) 



Linear Correlation 




Figure G.3 The results of linear correlation (real part) - 

Example #4. 
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SAMPLE ( (n) 




Figure G.4 The results of linear correlation (imaginary 

part) - Example #4. 
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Figure G.5 CONCORFT.FOR Software Flowchart 
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Appendix H 



The program CONCOR.FOR will compute either the linear 
convolution or the linear correlation of two sequences of 
input data, depending on the option selected by the user. 
This appendix includes two example problems, each of which 
demonstrates one of these computations. The last pages of 
this appendix are the flowcharts that describe CONCOR.FOR 
and the subroutines CONVOL and CORREL. 

The variable names listed below are used in the Fortran 
source code of CONCOR.FOR and in the corresponding flow- 
charts . 

option - The character string that specifies the 
operation to be performed as follows: 

1 LCON ' = Linear convolution, 

'LCOR' = Linear correlation, 
nsl - The integer value denoting the starting point of 
xnl ( ) . 

nel - The integer value denoting the ending point of 
xnl ( ) . 

dsrcel - The character string 1 F' or 'S' that specifies 
whether the input sequence xnl() is to be read 
from the input file (F) or generated (S) through 
use of the subroutine SAMPL1. 
ns2 - The integer value denoting the starting point of 
xn2 ( ) . 

ne2 - The integer value denoting the ending point of 
xn2 ( ) . 

dsrce2 - The character string ' F ' or 'S' that specifies 
whether the input sequence xn2 ( ) is to be read 
from the input file (F) or generated (S) through 
use of the subroutine SAMPL2 . 
xnl ( ) - The first input sequence of length N1 = nel- 
nsl + 1. 

xn2() - The second input sequence of length N2 = ne2- 
ns2 + 1. 

yn() - The output sequence of length N3 = N1 + N2 - 1 
produced if option = 'LCON'. 
ns3 - The integer value corresponding to the starting 
point of the output sequence. 



114 



ne3 



the ending 



- The integer value corresponding to 
point of the output sequence. 

R() - The output sequence of length N3 = ne3 - ns3 + 

1 produced if option = 'LCOR'. 



115 



Example #1 



The first computation to be demonstrated is the linear 
convolution of the two sequences: xnl(n) = [ 1 1 1 1 ] 

for -3 < n < 0 (nsl = -3, nel = 0) and xn2(n) = [ 1 2 3 

4 5 ] for 0 < n < 4 (ns2 = 0, ne2 = 4 ) . To run this 

example problem the input file CONCOR.TST was created. A 
listing of this file appears below. 

CONCOR.TST 



LCON 

-3 

0000 

1.0 

1.0 

1.0 

1.0 

1.0 
2 . 0 

3 . 0 

4 . 0 

5.0 



0000 F 

0004 F 



This example is also developed in the header text of 
C0NC0R.F0R and can be run by the user in Test Mode by 
specifying the input file CONCOR.TST. The computed output, 
as it appears in the file CONCOR.OUT, is included on the 
page that follows. In addition to the tabulated data, plots 
of the input and output sequences are also included. The 
plotting program PLOTDAT. FOR will not attempt to connect the 
plotted values of sequences consisting of less than 25 
points. Instead, the symbol ' + ' is placed on the plot at 
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the appropriate locations. This example problem was chosen 
to demonstrate this feature of PLOTDAT . FOR . 



The result of manually calculating the linear convolu- 
tion of the two input sequences is the sequence: yn ( ) = [ 1 
3 6 10 14 12 9 5 ] . This compares favorably with the 
computer generated results. 

CONCOR . OUT 



INPUT DATA SOURCEFILE: CONCOR. TST 
nsl = -3 nel = 0 dsrcel = F 

ns2 - 0 ne2 = 4 dsrce2 = F 

option = LCON 



INPUT DATA 



n 


xnl (n) 


-3 


. 100000E+01 


-2 


. 100000E+01 


-1 


. 100000E+01 


0 


. 100000E+01 


n 


xn2 (n) 


0 


. 100000E+01 


1 


. 2 00000E+01 


2 


. 300000E+01 


3 


. 400000E+01 


4 


. 500000E+01 



OUTPUT 


DATA 


n 


yn(n) 


-3 


. 100000E+01 


-2 


. 300000E+01 


-1 


. 600000E+01 


0 


. 100000E+02 


1 


. 140000E+02 


2 


. 120000E+02 


3 


. 900000E+01 


4 


. 500000E+01 
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INPUT SEQUENCE xnl(n) 




Figure H.l Input sequence xnl(n) - Example #1. 
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SAMPLE i (n) 



INPUT SEQUENCE xn2(n) 




j . 






in 




X 



co 

CO 




$ 



X 




Figure H.2 Input sequence xn2(n) - Example #1. 
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SAMPLE i (n) 



Linear Convolution 



Xc 

Xc 



cxj 

I 



CV3 



CX3I 

CO 



Figure H.3 The result of linear convolution - Example #1, 
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SAMPLE « (n) 



Example #2 



This example demonstrates the linear correlation option. 
The input sequences chosen are identical to those used in 
Example #4 of Appendix E. The input sequence xnl() consists 
of N1 = 128 values of the unit step function, and the input 
sequence xn2() consists of N2 = 128 values of a square wave. 
Plots of the input sequences, as well as the output 
sequence, appear on the pages that follow. The results of 
the correlation operation, as produced by CONCOR.FOR, are 
similar to those produced by CONCORDT.FOR and CONCORFT . FOR . 
However, as the plots indicate, the wraparound phenomenon 
exhibited previously does not occur when the sequences are 
linearly correlated in the time domain. 
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INPUT SEQUENCE xnl (REAL) 






x 




X 



Figure H.4 Input sequence xnl(n) - Example #2. 
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SAMPLE V (n) 



INfUI SEQUENCE xn2 (REAL) 







$ 



•S 



X 



OJ 




Figure H.5 Input sequence xn2(n) - Example #2. 
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SAMPLE « (n) 



Linear Correlation 



r— oj 
oa 




Figure H.6 The result of linear correlation - Example #2 
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SAMPLE « (p) 




Figure H.7 CONCOR.FOR Software Flowchart. 
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Figure H.8 CONVOL Subroutine Flowchart. 
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Figure H.9 CORREL Subroutine Flowchart. 
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Appendix I 



The iterative solution to an LTI difference equation is 
rather straight-forward. If the equation consists of only a 
few terms, several iterations can be computed by hand 
calculations. A more complex equation requires a solution 
derived by an analytical approach or through use of a 
recursive algorithm. DIFFEQ.FOR provides a recursive means 
of computing the output sequence y(ns) when provided with 
the input sequence x(ns) and the ' initial conditions of the 
system. This appendix includes the flowcharts of DIFFEQ.FOR 
and the subroutine DIFFEQ. Additionally, two example 

problems are developed which demonstrate the capabilities of 
DIFFEQ.FOR. 

The variable names listed below are used in the Fortran 
source code of DIFFEQ.FOR and in the corresponding flow- 
charts . 

numsys - The integer value that specifies the number of 
difference equations in the form of Equation 
(3.9) that are to be solved. For each 

difference equation, the input parameters 
described below must be provided by the user. 

L - The integer value denoting the maximum number 
of delays occurring in the input sequence x(). 

N - The integer value denoting the maximum number 
of delays occurring in the output sequence y() . 
nstop - The integer value corresponding to the largest 
time index for which the sequence y() is to be 
solved . 

xsorce - The character string • F ' or 'S' that specifies 
whether the input sequence x() is to be read 
from the input file (F) or generated (S) 
through use of the subroutine XGEN. 
b() - The coefficients of the input sequence cor- 
responding to Equation (3.9). 
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a() - The coefficients of the output sequence 
corresponding to Equation (3.9). 
y() - The output sequence of length: N + nstop + 1. 

The initial condition sequence y (-N) . . . y (-1) 
must be provided by the user if N > 0. The 
remaining values in the sequence y(0)...y( ns- 
top) are computed by the program. 
x() - The input sequence of length: nstop + 1. 

ns - The time index of both the input sequence and 
the output sequence. 

nprob - The integer value corresponding to the dif- 
ference equation being solved. 
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Example #1 



The first example involves the solution of the difference 
equation: 

y(ns) = 1.2*y(ns-l) + 1.5*x(ns) 

Given: y(-l) = 25.0 

x(ns) = 100.0 for 0 < ns < nstop 

( 1 . 1 ) 

The goal is to compute the solution to this difference 
equation for values of ns in the range: 0 < ns < 10. Listed 
below is the input file DIFFEQ.TST required to run this 
problem: 



1 

000 

1.5 

1.2 

25.0 

100.0 
100.0 












DIFFEQ.TST 



001 



010 



100 . 0 
100.0 



100.0 

100.0 



100.0 

100.0 



100.0 100.0 
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Included on the page that follows is a listing of the 
computed solution as it appears in the file DIFFEQ.OUT. The 
manual computation of y(ns) for the first few values of ns 
yields the sequence y(ns) = [ 25 180 366 589.2 ... ]. As 
can be seen from the tabular output, the solution was 
correctly computed for these values of ns. Continuing with a 
more analytical approach, the solution to this difference 
equation can be found for any value of ns > 0 with the aid 
of the geometric sum equation. The solution, after some 
manipulation, is: 



1.0 - 1 . 2 ns+1 

y (ns) = 25.0*1. 2 ns+1 + 150.0* for ns > 0 

- 0.2 

( 1 . 2 ) 

For example: 

1.0 - 1 . 2 11 

y (10) = 25. 0*1. 2 11 + 150.0* = 5008.315 

- 0.2 

(1.3) 

To an accuracy of two decimal places the computed solution 
matches the analytical solution. 

This example problem is also developed in the header 
text of DIFFEQ . FOR and can be run by the user in Test Mode 
by using the prestored data found in the input file 
DIFFEQ. TST. 
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DIFFEO . OUT 



INPUT DATA FOR PROBLEM # 1 



PROBLEM # 1 INPUT DATA SOURCEFILE: DIFFEQ.TST 
THE NUMBER OF INPUT DELAYS: L = 0 

THE NUMBER OF OUTPUT DELAYS: N = 1 

THE VALUE OF nstop IS: 10 

THE COEFFICIENTS b(0), b(l), . b(L) ARE: 

. 150000 E+ 0 1 



THE COEFFICIENTS a(l), a(N) ARE: 

. 120000E+01 



OUTPUT DATA FOR PROBLEM # 1 



ns 

-1 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 



x(ns) 



y (ns) 



. 000000E+00 
. 100000E+03 
. 100000E+03 
. 100000E+03 
. 100000E+03 
. 100000E+03 
. 100000E+03 
. 100000E+03 
. 100000E+03 
. 100000E4-03 
. 100000E+03 
. 100000E+03 



250000E+02 
180000E+03 
3 66000E+03 
589200E+03 
857040E+03 
117845E+04 
156414E+04 
202 697E+04 
258236E+04 
324883E+04 
404860E+04 
5008 3 2E+04 



END OF PROBLEM # 1 
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Example #2 



This second example requires the solution to the 
difference equation: 

y(ns) = 0.95*y(ns-l) - 0 . 9025*y (ns-2 ) + x(ns) - .475*x(ns-l) 

(1-4) 



Given: y(-2) = y(-l) = 0.0 

x(ns) = 1.0 for ns = 0 
0.0 otherwise 

The system described by this difference equation corresponds 
to the transfer function: 

y ( z) 1.0 - . 475*z -1 

H ( Z ) = = 

X ( Z ) 1.0 - 0.95Z -1 + 0.9025Z -2 

(1.5) 

With the aid of the Inverse z-Transform Formula, the 
analytical solution of this example problem is found to be: 

y(ns) = 0.95 ns * cos (?r*ns/3 . 0 ) for ns > 0 

( 1 . 6 ) 

The next page of this appendix is a plot of the output 
sequence for values of ns in the range: 0 < ns < 80. The 
plot clearly shows both the decaying envelope of the 
sequence, as well as the constant frequency sinusoid. 
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OUTPUT SEQUENCE V(ns) 
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SAMPLE « (ns) 




Figure 1.2 



DIFFEQ. FOR Software Flowchart. 
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Figure 1.3 DIFFEQ Subroutine Flowchart. 



Appendix J 



Included in this appendix are two example problems that 
demonstrate the capabilities of the program STATEQ . FOR. 
The final pages of this appendix are the software flowcharts 
of the main program STATEQ. FOR and the subroutine ITRATE. 
Listed below are the names of the variables used throughout 



the flowcharts and the corresponding Fortran source code. 



N 

M 

Q 

nstop 

xsorce 

A 

B 

C 

D 

v() 

ns 

xs ( i , ns ) 
vs ( i , ns) 
ys ( i , ns) 



An integer value that specifies the number of 
system states. 

An integer value that specifies the number - of 
system inputs. 

An integer value that specifies the number of 
system outputs. 

The integer value corresponding to the largest 
time index for which the system of state 
equations is to be solved. 

The character string ' F * or 'S' that specifies 
whether the input sequence xs ( ) is to be read 
from the input file (F) or generated (S) 
through use of the subroutine XGEN . 

An N x N matrix of state coefficients as they 
occur in Equation (3.10). 

An N x M matrix of input coefficients as they 
occur in Equation (3.10). 

A Q x N matrix of output coefficients as they 
occur in Equation (3.11). 

A Q x M matrix of input coefficients as they 
occur in Equation (3.11). 

An N x 1 vector consisting of values that 
describe the initial condition of the system. 

An integer value denoting the time index. 

An M x (nstop+1) array consisting of the input 
sequence (s). The index i denotes the input 
number (1, ..., M) , and the index ns denotes the 
sample number (0, 1, ..., nstop). 

An N x (nstop+1) array consisting of the 
state (s) of the system. The index i denotes the 
state (1, ..., Q) , and the index ns denotes the 

sample number (0, 1, ..., nstop). 

A Q x (nstop+1) array consisting of the output 
sequence (s). The index i denotes the output 
number (1, ..., Q) , and the index ns denotes the 

sample number (0, 1, ..., nstop). 
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xi - A dummy variable that stores the weighted 
cumulative contribution of the input sequen- 
ce^) for each value of ns. 
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Example #1 



This first example problem demonstrates the iterative 
solution to the state equations: 



v(ns+l) = 


0.0 


-1 . 0 


v(ns) + 


1.0 




1.0 


0.0 




0 . 0 



(J.l) 



y(ns) = [ 1.0 -1.0 ] v(ns) + [ l.o ] x(ns) 



(J.2) 



The initial condition vector is: 



v(0) 



5 . 0 

-5 . 0 



(J.3) 



The input vector is: 

x(ns) = [ 10.0 ] for 0 < ns < 3 

(J.4) 

The goal of this problem is to compute the solution to the 
given system of equations for values of ns in the range: 0 < 

ns < 3 . This example problem also appears in the header 

text of STATEQ . FOR and can be run by the user in Test 
Mode by using the input data prestored in the file 
STATEQ. TST. A listing of STATEQ. TST appears below. 
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STATEO.TST 



02 


1 


03 


F 


0.0 


-1.0 


1.0 

1.0 

0.0 


O 

o 


1.0 

1.0 


1 

• 

O 


5.0 

10.0 
10.0 
10.0 
10.0 


1 

U1 

• 

o 



Manual calculation of the solution to this problem yields 
the following sequences: 

vl (ns) = [ 5.0 15.0 5.0 -5.0 ] 

(J.5) 

v2 (ns) = [ -5.0 5.0 15.0 5.0 ] 

(J.6) 

yl(ns) = [ 20.0 20.0 0.0 0.0 ] 

(J.7) 

A listing of the tabular output file STATEQ.OUT follows. As 
the tabular output indicates, the sequences were correctly 
computed over the specified range of ns. 
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STATEO . OUT 



INPUT PARAMETERS: 

INPUT DATA SOURCE FILE: STATEQ.TST 
THE NUMBER OF STATES IS: N = 2 

THE NUMBER OF SYSTEM INPUTS IS: M = 1 
THE NUMBER OF SYSTEM OUTPUTS IS: Q = 1 
THE VALUE OF nstop IS: nstop = 3 

THE VALUE FOR xsorce IS: F 



THE MATRIX A(i,j) IS: 

. 0000E+00 - . 1000E+01 

. 1000E+01 . 0000E+00 



THE MATRIX B(i,j) IS: 

. 1000E+01 
. 0000E+00 



THE MATRIX C ( i , j ) IS : 
. 1000E+01 - . 1000E+01 



THE MATRIX D(i,j) IS: 
. 1000E+01 



THE INITIAL CONDITION OF THE STATE VECTOR IS 

vl = . 500000E+01 

v2 = - . 500000E+01 
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OUTPUT DATA 



FOR ns = 0 THE STATE OF THE SYSTEM IS 

THE VECTOR X is: 
xl = . 100000E+02 

THE VECTOR V is: 

Vl = . 500000E+0 1 

v2 = - . 500000E+01 
THE VECTOR y is: 
yl = . 2 00000E+02 

FOR ns = 1 THE STATE OF THE SYSTEM IS 

THE VECTOR X is: 

Xl = . 100000E+02 

THE VECTOR V is: 
vl = . 150000E+02 

v2 = . 500000E+01 

THE VECTOR y is: 
yl = . 200000E+02 

FOR ns = 2 THE STATE OF THE SYSTEM IS 

THE VECTOR x is: 

Xl = . 100000E+02 

THE VECTOR v is: 
vl = . 500000E+01 

v2 = . 150000E+02 

THE VECTOR y is: 
yl = . 000000E+00 

FOR ns = 3 THE STATE OF THE SYSTEM IS 

THE VECTOR x is: 
xl = . 100000E+02 

THE VECTOR v is: 
vl = - . 500000E+01 
v2 = . 500000E+01 

THE VECTOR y is: 
yl = . 000000E+00 
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Example #2 



z 



A low-pass filter having a zero at z = -1.0 and poles at 
= .95, .95e - 3 7r / 6 , ,95e + ^ 7r / 6 has the transfer function: 

z + 1 

H < z ) = -r ; 

Z J - 2 . 5954 z 2 + 2.4657Z - .8574 



(J.8) 



A state-matrix representation of this system is: 





0.0 


1.0 


0.0 




0 


0 


0 


v(ns+l) = 


0.0 

0.8574 


0.0 

-2.4657 


1.0 

2 . 5954 


v(ns) + 


0 

1 


0 

1 


0 

1 



(J.9) 



y(ns) = [ 1.0 1.0 0.0 ] v(ns) + [000] x(ns) 



(J. 10) 



The inputs to the system are the three sequences: 
xl(ns) = 10.0*u(ns) 

x2(ns) = 2*cos(7T*ns/6) *u(ns) 

x3(ns) = 2*cos (7r*ns/2) *u (ns) 

The initial condition of the system is the vector: 



(J.ll) 
(J. 12) 
(J. 13) 



v() 



0 

0 

0 



( J . 14 ) 



To solve this problem, the input file STATEQ.IN was created. 
A listing of this file appears below. Plots of the 
sequences xl(ns), x2(ns), x3(ns), vl(ns), v2(ns), v3 (ns) , 

and yl(ns) are included on the pages that follow. The 
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sequences were computed for 100 values of ns (nstop = 99) . 
Because of the lengths of the input sequences, all three 
input sequences were generated through use of the subroutine 
XGEN . 

As the plots indicate, the filter amplifies the low 
frequency inputs xl and x2 , but attenuates the high 
frequency input x3 . 

STATEO. IN 



03 


3 


1 


99 


S 




0.0 


1.0 


0.0 


0.0 


0.0 


1.0 


0.8574 


-2.4657 


2 . 5954 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


1.0 


1.0 


1.0 


1.0 


1.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 


0.0 
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INPUT SEQUENCE xl (ns) 




oa 





*e 

*c 



x 




Figure J.l Input sequence xl(ns) - Example #2 
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SAMPLE I (ns) 



INPUT SEQUENCE x2 (ns) 




Figure J.2 Input sequence x2(ns) - Example #2. 
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SAMPLE I (ns) 



INPUT SEQUENCE x3 (ns) 




Figure J.3 Input sequence x3(ns) - Example #2. 
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SAMPLE « (ns) 



STATE SEQUENCE vl (ns) 




Figure J.4 State sequence vl(ns) - Example #2. 
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SAMPLE « (ns) 



STATE SEQUENCE v2 (ns) 




CM 



■XI 



Figure J.5 State sequence v2(ns) - Example #2. 
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SAMPLE I (ns) 



STATE SEQUENCE v3 (ns) 




150 



SAMPLE « (ns) 



OUTPUT SEQUENCE yl (ns) 




Figure 3.1 Output sequence yl(ns) - Example #2 
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SAMPLE I (ns) 




'Write results to files: 
STATEQ . OUT and STATEQ . OUT . 



Figure J.8 STATEQ. FOR Software Flowchart. 
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Figure J.9 ITRATE Subroutine Flowchart. 
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Appendix K 



The software flowcharts describing the program PLOT- 
DAT.FOR and the subroutines SCALE and GRIDD are included in 
this appendix. Listed below are the variable names used in 
the flowcharts and the corresponding Fortran source code. 

xmax - The maximum ordinate value read from the data 
for each plot. 

xmin - The minimum ordinate value read from the data 
for each plot. 

ymax - The maximum abscissa value read from the data 
for each plot. 

ymin - The minimum abscissa value read from the data 
for each plot. 

valmax - A dummy variable passed to subroutine SCALE 
containing the maximum value of an array to be 
scaled (i.e., xmax or ymax). 

valmin - A dummy variable passed to subroutine SCALE 
containing the minimum value of an array to be 
scaled (i.e., xmin or ymin). 
iscal - An integer value that contains the scaling 
value determined by subroutine SCALE, 
numplts - The integer value that specifies the number of 
plots to be created. For each plot, the 
parameters listed below must occur in the input 
file. 

numpts - The integer value that specifies the number of 
data points to be read from the input file for 
the given plot. 



title 


- The character string 


consisting 


of 


up 


to 


40 




characters 


that comprise the 


title 


of 


the 




graph. 














xlabl 


- The character string 


consisting 


of 


up 


to 


14 




characters 


that comprise the label 


for 


the 


x- 




axis of the 


graph . 












ylabl 


- The character string 


consisting 


of 


up 


to 


14 




characters 


that comprise the label 


for 


the 


y- 



axis of the graph. 

x() - The array containing the ordinate values read 
from the input file. 

y() - The array containing the abscissa values read 
from the input file. Each ordinate, abscissa 
pair corresponds to one point to be plotted by 
the program. 
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Figure K.l PLOTDAT . FOR Software Flowchart. 
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Print horizontal dashed lines 
at each major tic mark location. 



Print vertical dashed lines at 
each major tic mark location. 






Figure K.2 GRIDD Subroutine Flowchart. 
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Figure K.3 SCALE Subroutine Flowchart. 
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Appendix L 



C 

C 

C 

C PURPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 



DIGFREQ.POR VERSION: 2/03/88 



THIS PROGRAM COMPUTES THE FREQUENCY RESPONSE OF 
DISCRETE SYSTEMS. THE PROGRAM CONSISTS OF A MAIN 
PROGRAM THAT CONTROLS THE INPUT/OUTPUT AND THE 
SUBROUTINES dfresp AND coeff . SUBROUTINE dfresp 
COMEUTES THE FREQUENCY RESPONSE OF EACH SYSTEM. 
SUBROUTINE coeff ALLOWS THE USER THE OPTION OF 
GENERATING THE FILTER COEFFICIENTS OF THE SYSTEMS 
TO BE ANALYZED BY WRITING THE APPROPRIATE EQUATIONS. 

IF THE USER ELECTS TO GENERATE THE COEFFICIENTS BY 
USING THE SUBROUTINE coeff, THE EQUATIONS MUST BE 
WRITTEN INTO THE SUBROUTINE USING STANDARD FORTRAN 77 
STATEMENTS. THE COEFFICIENTS MUST BE STORED IN THE 
ARRAYS b() AND c() WHICH CORRESPOND RESPECTIVELY TO THE 
NUMERATOR AND DENOMINATOR TERMS OF THE SYSTEM EQUATION. 
THE USER CAN SELECT ONE OF TWO OPERATING MODES: BATCH 
OR TEST. IN BATCH MODE THE AMOUNT OF INTERFACE WITH 
THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE INPUT 
DATA HAS BEEN STORED IN THE DEFAULT FILE ' DIGFREQ . IN ' . 

IN TEST MODE THE USER IS PROMPTED FOR THE NAME OF THE 
INPUT FILE OR HAS THE OPTION TO PERFORM A TRIAL RUN BY 
USING THE INPUT DATA STORED IN THE FILE ' DIGFREQ. TST ' . 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT THE TEST 
MODE AND MAKE A TRIAL RUN WITH THE PRESTORED INPUT DATA. 
THE TEST MODE ECHOES THE INPUT DATA ONTO THE MONITOR TO 
ALLOW VERIFICATION OF ITS ACCURACY. THIS PROGRAM WILL 
COMPUTE THE FREQUENCY RESPONSE OF UP TO THREE SYSTEMS. 
FOR EACH SYSTEM, THE USER HAS THE OPTION OF HAVING THE 
OUTPUT EXPRESSED IN DECIBELS (dB) . THE OUTPUT OF THIS 
PROGRAM IS STORED IN TABULAR FORM IN THE FILE 
'DIGFREQ. OUT' AND IN A FORM SUITABLE FOR PLOTTING 
IN THE FILE ' DIGFREQ . DAT ' . 



C** ****************** ********** INPUT ******************************** 
C 

C THIS PROGRAM ASSUMES THAT EACH DISCRETE SYSTEM IS MODELED BY THE 
C EQUATION: H(z) = num/den WHERE: 

C 

C num = b(0) *z**L + b(l) *z**(L-l) + ... + b(L-l)*z + b(L) 

C 

C den = c(0)*z**N + c(l) *z** (N-l) + ... + c(N-l)*z + c(N) 

C 

C L = A NON-NEGATIVE INTEGER, THE DEGREE OF THE NUMERATOR 
C POLYNOMIAL. 
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C N = A NON-NEGATIVE INTEGER, THE DEGREE OF THE DENOMINATOR 
C POLYNOMIAL. 

C b(0) . . .b(L) = REAL COEFFICIENTS OF THE NUMERATOR TERMS. 

C c(0) ...C(N) = REAL COEFFICIENTS OF THE DENOMINATOR TERMS. 

C 

C THE INFUr PARAMETERS SHOUID BE STORED IN A FILE NAMED 
C 'DIGFREQ. IN' . ALL OF THE READ STATEMENTS USED BY THIS PROGRAM 

C REQUIRE FORMATTED INPUT. PARTICUIAR ATTENTION SHOUID BE PAID 

C TO THE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
C DENOTE 'REAL' NUMBERS. THE INPUT PARAMETERS REQUIRED BY THE 
C PROGRAM ARE LISTED BELOW. 

C 

C 



c 

c 

c 


NAME 


TYPE 


RANGE (ARRAYS) 




RESTRICTIONS 


numsys 


INTEGER 




1 


<= numsys <= 3 


c 


L 


INTEGER 






0 <= L <= 128 


c 


N 


INTEGER 






0 <= N <= 128 


c 


dsorce 


CHARACTER 






•F' OR 'S' 


c 


yscal 


CHARACTER 




1 


'STD' OR ' IOG' 


c 


thetaO 


REAL 








c 


dlthta 


REAL 








c 


numpts 


INTEGER 




1 


<= numpts <= 101 


c 


b() 


REAL 


0, 1, 2, • • • , L 




0 <= L <= 128 


c 


c() 


REAL 


0, 1, 2, . . . , N 




0 <= N <= 128 


c 


WHERE: 










c 


numsys = 


THE NUMBER OF 


DISTINCT SYSTEMS H(z) 


TO 


BE ANALYZED. 



C THIS INTEGER VALUE MUST OCCUR AT THE TOP OF THE INPUT 

C FILE. IT DELINEATES THE NUMBER OF SYSTEMS TO BE READ BY 

C THE PROGRAM AND ANALYZED. FOR EACH SYSTEM (1, ..., numsys) 

C THE PARAMETERS BEIDW MUST APPEAR IN THE INPUT FILE. 

C 

C L = AN INTEGER VALUE SPECIFYING THE DEGREE OF THE NUMERATOR 
C POLYNOMIAL. 

C 

C N = AN INTEGER VALUE SPECIFYING THE DEGREE OF THE DENOMINATOR 
C POLYNOMIAL. 

C 

C dsorce = THE CHARACTER STRING ' F' OR 'S' DENOTING WHETHER THE 
C SYSTEM COEFFICIENTS ARE TO BE READ FROM THE INPUT FILE (F) 

C OR GENERATED (S) THROUGH USE OF THE SUBROUTINE coeff . 

C 

C yscal = A CHARACTER STRING SPECIFYING THE DESIRED MAGNITUDE OPTION: 
C 'STD' WILL PRODUCE STANDARD MAGNITUDE OUTPUT; 

C 'LOG' WILL PRODUCE MAGNITUDE EXPRESSED IN DECIBELS (dB) . 

C 

C thetaO = THE STARTING VALUE OF THETA (RAD) AS IN Z=EXP(J*THETA) . 

C 

C dlthta = THE INCREMENT OF THETA (RADIANS) . 

C 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



numpts = THE NUMBER OF FREQUENCY POINTS FOR WHICH THE OUTPUT IS 
TO BE COMPUTED. 

b() = THE NUMERATOR COEFFICIENTS IN ORDER b(0) , b(l) , . .., b(L) . 

IF dsorce = 'F' IS SELECTED THEN THE USER MUST SUPPLY THE 
L+T NUMERATOR COEFFICIENTS IN THE FILE. IF dsorce = 'S' 

THEN THE USER HAS ELECTED TO GENERATE THE NUMERATOR 
COEFFICIENTS BY WRITING THE APPROPRIATE FORTRAN STATEMENTS 
IN THE SPACE PROVIDED IN SUBROUTINE coeff. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. 

c ( ) = THE DENOMINATOR COEFFICIENTS IN ORDER c(0) , 0(1), ..., c(N) . 
IF dsorce = 'F* IS SELECTED THEN THE USER MUST SUPPLY THE 
N+l DENOMINATOR COEFFICIENTS IN THE FILE. IF dsorce = 'S' 
THEN THE USER HAS ELECTED TO GENERATE THE DENOMINATOR 
COEFFICIENTS BY WRITING THE APPROPRIATE FORTRAN STATEMENTS 
IN THE SPACE PROVIDED IN SUBROUTINE coeff. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. 

NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********* 

THE FORM OF THE INPUT DATA FILE IS: 



LINE # 



ENTRIES 



FORMAT 



1 

2 

3 

NOTE 1 
NOTE 2 
NOTE 3 



numsys 

L, N , dsorce , yscal 
dlthta , thetaO , numpts 
b(k), k=0,l,...,L 
c(k) , k=0,l, ,N 



il 

i3,tll, i3,t21,al,t31,a3 
2flO.O,i3 
6fl0. 0 
6fl0. 0 



WHERE: NN = 1 + (1/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) . 

ND = 1 + (N/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) . 



NOTES 1. THE NEXT NN LINES ARE ONLY REQUIRED IF dsorce = 'F' . IF 

dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE THE 

1+1 NUMERATOR COEFFICIENTS IN THE SUBROUTINE coeff. 

THE USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE coeff TO GENERATE THE VALUES FOR b() . 

2. THE NEXT ND LINES ARE ONLY REQUIRED IF dsorce = 'F' . IF 

dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE THE 

N+l DENOMINATOR COEFFICIENTS IN THE SUBROUTINE coeff. 

THE USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE coeff TO GENERATE THE VALUES FOR c() . 



3. FOR numsys > 1 THE FORMAT OF LINES 2. . . IS REPEATED. 
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C 4. THE FORMAT flO.O USED FOR INPUT DATA PERMITS THE DECIMAL 

C POINT TO BE PLACED ANYWHERE IN THE FIELD OF 10 COLUMNS 

C AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (EG. 

C 3146.2 = 3. 1462E+03) . 

C 

C 

( 2 *********** ************* ****** (XJTFUT ***** ******** ******* *********** 

c 

C THE OUTFUT DATA CREATED BY THE PROGRAM IS STORED IN TABULAR FORM 
C IN THE FILE ' DIGFREQ . OUT ' . ADDITIONALLY, THE OUTFUT DATA IS 
C WRITTEN INTO THE FILE 'DIGFREQ.DAT' TO FACILITATE PLOTTING BY 
C A SEPARATE, USER SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 
C 'DIGFREQ.DAT' IS: el2.6, 2x, el2.6. THE FIRST ENTRY CORRESPONDS 

C TO THE ORDINATE VALUE (THETA) AND THE SECOND ENTRY THE ABSCISSA 
C VALUE (MAGNITUDE OR PHASE) . ADDITIONAL HEADER INFORMATION IS 
C WRITTEN INTO THE DATA FILE TO ALLOW FOR CONTROL AND LABELING OF 
C EACH PLOT. 

C 

C 

q* ********************** ******* EXAMPLE ****************************** 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



THE INFUT PARAMETERS FOR THE SYSTEM DESCRIBED BELOW ARE STORED IN 
THE SAMPLE INFUT FILE ' DIGFREQ . TST ' AND CAN BE USED FOR A TRIAL 
RUN IN THE TEST MODE. 



SYSTEM: H(z)=z/(z-0.5) 

GOAL: TO OBTAIN THE FREQUENCY RESPONSE FOR THIS SYSTEM FROM 

THETA = 0.0 TO THETA = 3.14159 (PI RADIANS) IN STEPS 
OF dlthta = PI/10.0 

FOR THE SYSTEM DESCRIBED ABOVE THE INFUT FILE IS: 

1 



001 


001 


F 


STD 


0.314159 


0.0 


Oil 




1.0 


0.0 






1.0 


-0.5 







THE RESULTING OUTFUT DATA FILE: ' DIGFREQ . OUT ' IS: 

INFUT DATA FOR SYSTEM # 1 

INFUT DATA SOURCEFILE: DIGFREQ. TST 
DEGREE OF NUMERATOR = 1 

DEGREE OF DENOMINATOR = 1 

dsorce = F 

NUMBER OF FREQUENCY POINTS = 11 MAGNITUDE OPTION = STD 

STARTING VALUE OF THETA = .000000E+00 

INCREMENT OF THETA = .314159E+00 
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c 

C THE NUMERATOR COEFFICIENTS b(0) ,b(l) . . .b(L) ARE 
C 

C . 1000E+01 . 0000E+00 

C 

C 

C THE DENOMINATOR COEFFICIENTS c(0) ,c(l) . . .c(N) ARE 
C 

C . 1000E+01 - . 5000E+00 

C 

C 

C OUTPUT DATA FOR SYSTEM # 1 

C 



c 


THETA 


MAGNITUDE 


PHASE 


c 

p 


(RADIANS) 




(DEGREES) 


V*- 

c 


. 000000E+00 


. 200000E+01 


. OOOOOOE+OO 


c 


.314159E+00 


. 182897E+01 


-. 16414 9E+02 


c 


. 628318E+00 


. 150588E+01 


-. 262677E+02 


c 


. 942477E+00 


. 122886E+01 


-.29807E+02 


c 


. 125664E+01 


. 103088E+01 


-. 29354 6E+02 


c 


. 157080E+01 


.894428E+00 


-. 265651E+02 


c 


. 188495E+01 


. 800894E+00 


223862E+02 


c 


•21991LE+01 


.737654E+00 


173608E+02 


c 


. 251327E+01 


. 696900E+00 


-. 118186E+02 


c 


. 282743E+01 


. 674038E+00 


-. 597793E+01 


c 

r* 


. 314159E+01 


. 666667E+00 


-. 484184E-04 


V-. 

c ■ 


EOT 


) OF RUN, SYSTEM # 1 



C 

C 

C FOR ILLUSTRATIVE RJRPOSES THE COEFFICIENTS b() AND c() COULD 
C HAVE BEEN GENERATED BY SPECIFYING dsorce = 'S' AND WRITING THE 
C APPROPRIATE FORTRAN STATEMENTS INTO SUBROUTINE coeff. THE 
C STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN INTO 
C THE SUBROUTINE BUT ARE 'COMMENTED OUT' . 

C 

Q*************************** MAIN PROGRAM *************************** 



character infile* 12 , mode*l, ylabl*13, dsorce*l, yscal*3 
real mh(101) , ph(101) , thetav(lOl) , c(0:128), b(0:128) 

C PROMPT USER FOR MODE: BATCH OR TEST. 

write (*,1115) 
read (*,1117) mode 

if ( (mode.eq. ' Y 1 ) .or. (mode.eq. * y 1 ) ) then 
mode = ' Y ' 
write (*, 1118) 
read ( * , 1119) infile 
else 
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infile = ' DIGFREQ.IN' 
erdif 

C UNIT=1 DEFINED AS INRJT FILE. UNITS=2,3 DEFINED AS OUTRJT FILES 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' DIGFREQ . OUT ' ) 
open (unit=3 , f ile= ' DIGFREQ . DAT ' ) 

C READ INRJT PARAMETERS AND CONDUCT ERROR CHECKS. 

read (1,1000) numsys 
numplts = numsys* 2 
write(3,2000) numplts 
if ( (numsys. It. 1) .or. (numsys. gt. 3) ) then 
write (*, 1122) numsys 

stop 'Error, numsys must be in the range: 1 <= numsys <= 3. ' 
endif 

do 10 nsys=l, numsys 

data mh/101*0. 0/, ph/101*0.0/, thetav/101*0. 0/ 
data b/ 129*0. 0/, c/129*0.0/ 

read(l,1001) L, N, dsorce, yscal 
read(l,1002) dlthta, thetaO, numpts 

if ((L.lt.0) .or. (L.gt.128) ) then 
write (*, 1124) nsys, L 

stop 'Error, L must be in the range: 0 <= L <= 128. ' 
elseif ((N.lt.0) .or. (N.gt.128) ) then 
write(*,1125) nsys, N 

stop 'Error, N must be in the range: 0 <= N <= 128. ' 
endif 

if ( (dsorce. eq. ' F ' ) .or. (dsorce. eq. ' f ' ) ) then 
dsorce = 'F' 

elseif ( (dsorce. eq. 'S' ) .or. (dsorce. eq. 's') ) then 
dsorce = 'S' 
else 

write (*,1018) dsorce 

stop 'The allowed values for dsorce are: ' 'S' ' or ' ' F ' ' . ' 
endif 

if ( (numpts. It. 1) .or. (numpts. gt. 101) ) then 
write (*,1127) nsys, numpts 

stop 'Error, numpts must be in the range: 1 <= numpts <= 101 
endif 

if ( (yscal . eq. ' STD' ) . or. (yscal . eq. ' std ' ) ) then 
yscal = 'STD' 
ylabl = ' MAGNITUDE ' 

elseif ( (yscal. eq. 'IDG' ) .or. (yscal. eq. 'log' ) ) then 
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yscal = 'LOG' 
ylabl = 'MAGNITUDE (dB) ' 
else 

write (*,1128) yscal 

stop 'Error, yscal must be the string: ' 'LOG' ' or ' 'STD' ' . ' 
endif 

C FOR dsorce = 'F' READ THE COEFFICIENTS b() AND c() FROM THE INHJT 
C FILE. FOR dsorce = 'S' CALL coeff TO GENERATE THE COEFFICIENTS. 

if (dsorce. eq. 'F' ) then 
read (1, 1003) (b(k),k=0,L) 
read(l, 1003) (c(k) ,k=0,N) 
else 

call coeff (L,N,nsys,b,c) 
endif 



C WRITE .NRJT DATA INTO THE OUTPUT FILE: DIGFREQ.OUT. 



write (2, 1008) 
write (2, 1010) 
write (2, 1110) 
write (2, 1111) 
write (2, 1019) 
write (2, 1112) 
write (2, 1113) 
write (2, 1114) 
write (2, 1004) 
write (2, 1005) 
write (2, 1006) 
write (2, 1005) 
write (2, 1009) 
write (2, 1126) 
write (2, 1007) 



nsys 

infile 

L 

N 

dsorce 

nuinpts, yscal 

thetaO 

dlthta 

(b(k) ,k=0,L) 

(c(k),k=0,N) 

nsys 

ylabl 



C FOR TEST MODE ECHO ALL INPUTS ONTO MONITOR (UNIT = *) . 



if (mode.eq. 'Y' ) 
write (*,1120) 
write (*,1110) 
write(*, 1111) 
write (*,1019) 
write (*,1112) 
write (*,1113) 
write (*,1114) 
write (*, 1004) 
write (*,1005) 
write (*,1006) 
write (*, 1005) 
write (*,1123) 
pause 'END OF 
endif 



then 

nsys, infile 

L 

N 

dsorce 

numpts, yscal 

thetaO 

dlthta 

(b(k) ,k=0,L) 

(c(k),k=0,N) 

nsys 

RUN, STRIKE <CR> WHEN READY TO CONTINUE. ' 
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C GALL dfresp TO COMPUTE THE FREQUENCY RESPONSE. 

call dfresp (b,c,mh,ph, L,N, thetaO , dlthta , thetav , nunpts , yscal ) 

C WRITE RESULTS INTO OUTFUT FILE: DIGFREQ.DAT. 

write(3,2001) nunpts 
write (3,*) 'MAGNITUDE RESPONSE' 
write(3,*) 'THETA (rad)' 
write (3, 2003) ylabl 
do 55 np=l, nunpts 

write(3 ,2010) thetav (np) , mh(np) 

55 continue 

write (3, 2001) nunpts 
write (3,*) 'PHASE RESPONSE' 
write (3,*) 'THETA (rad)' 
write (3 ,2003) ' PHASE (DEG) ' 
do 56 np=l, nunpts 

write(3,2010) thetav ( np ) , ph(np) 

56 continue 

C WRITE RESULTS INTO OUTPUT FILE: DIGFREQ.OUT. 
do 150 np=l, nunpts 

write(2, 1013) thetav ( np ) , mh(np), ph(np) 

150 continue 

write (2,1123) nsys 

10 continue 

write (*,1121) 

999 close (unit=l) 
close (unit=2 ) 
close (unit=3) 

if (ierr.gt.0) then 
write (*,1116) ierr 
endif 

C*********** INPUT FORMAT **************** 

1000 format (il) 

1001 format (i3, til, i3,t21,al,t31,a3) 

1002 format(2fl0.0,i3) 

1003 format (6f 10.0) 

^*** ******************************* ********* 

1004 format(t4, 'THE NUMERATOR COEFFICIENTS b(0) ,b(l) .. .b(L) ARE: ' ,/) 

1005 format(6(2X,ell.4) ,//) 
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1006 Of ormat (//,t4, 'THE DENOMINATOR COEFFICIENTS c(0) ,c(l) . . .c(N) ' , 

1' ARE: ',/) 

1007 format (t6, ' (RADIANS) ' , t38 , ' (DEGREES) ' ,/) 

1008 format (tl6, ' INPUT DATA FOR SYSTEM # \il,//) 

1009 format (///,tl6, 1 OUTPUT DATA FOR SYSTEM # ',il,/) 

1010 format ( t4 , ' INHJT DATA SOURCEFILE : ' , al2 ) 

1013 format(t4,3(el2.6,4x) ) 

1018 format ( lx , 'dsorce = ' ,al,2x, 'Error, illegal value for dsorce. ') 

1019 f ormat (t4, 'dsorce = ',alj 

1110 format (t4, 'DEGREE OF NUMERATOR = \i3) 

1111 format (t4, 'DEGREE OF DENOMINATOR = ',i3) 

1112 Of ormat(t4, 'NUMBER OF FREQUENCY POINTS = ', i3,t3 9, 'MAGNITUDE' , 

1' OPTION = ' ,a3) 

1113 format (t4, 'STARTING VALUE OF THETA = ',el2.6) 

1114 format (t4, 'INCREMENT OF THETA = ',el2.6,/) 

1115 0 format (lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : \\,) 

1116 0formit(///,lX, 'ERROR OPENING INPUT FILE, PROGRAM TERMINATED. ', 

1//, lx, 'ERROR CODE: ' , i4 ,/////) 

1117 format(al) 

1118 Oformat (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 

1' BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: DIGFREQ.TST' , 

3 ' TYPE: DIGFREQ.TST <CR>' ,/, ' FILENAME: \\,) 

1119 format (al2) 

1120 f ormat (////, t4, 'SYSTEM # ',il,' INPUT DATA SOURCEFILE: ',al2) 

1121 0format(//,t4, 'TABULAR OUTPUT DATA IS STORED IN FILE: DIGFREQ.OUT' , 
l/,t4, 'PLOTTING DATA IS STORED IN FILE: DIGFREQ.DAT. ') 

1122 format (//////, t2, 'The value of numsys is: ',il,'.') 

1123 format (/, lx, 13 ('-'), ' END OF RUN, SYSTEM# ' ,il,2x,13 ( '-' ) ,//) 

1124 Oformat (//////, t2, 'The degree (L) of the numerator for system ', 

1'# ' ,il, ' is : L = ' , i3 , ' . ' ) 

1125 Of ormat (//////, t2, 'The degree (N) of the denominator for system' 

1, ' # ',il, ' is : N = ' , i3, ' . ' ) 

1126 format (///,t8, 'THETA' ,t21,al3,t40, 'PHASE') 

1127 format(//////,t2, 'The value of numpts for system ' , il, ' is: ' , i3) 

1128 format (/////, t2, 'The value of yscal is: ',a3,'.') 

2000 format (il) 

2001 format (i3) 

2003 format (al3) 

2010 format(el2.6,2x,el2.6) 

end 



C SUBROUTINE : df resp 



C PURPOSE: THIS SUBROUTINE COMPUTES THE FREQUENCY RESPONSE OF 

C THE SYSTEM. ALL FREQUENCY CALCULATIONS ARE IN RADIANS, 

C HOWEVER THE OUTPUT IS CONVERTED TO DEGREES. 
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THE OUTPUT FORMAT FOR EACH FREQUENCY INCREMENT IS: 
MAGNITUDE (M) IHASE(P) AS IN: M*EXP(J*P) . 



subroutine df resp (b,c,inh / ph,L,N, thetaO , dl thta , thetav , nurrpts , y seal ) 

real mh(numpts) , ph(numpts) , thetav ( numpts ) , imz, rez 

real b(0:L), c(0:N) 

character yscal*3 

complex z, den, num, h, ci 

DEFINE CONSTANTS. 

pi = 4.0*atan(1.0) 
ci = (1.0, 0.0) 

ITERATE FROM thetaO, IN INCREMENTS OF dlthta. 

do 100 np=l, numpts 
num = ci*b(0) 
den = ci*c(0) 

thetav (np) = thetaO + (np-1) *dlthta 
rez = cos ( thetav ( np ) ) 
imz = sin (thetav (np) ) 
z = cmplx(rez,imz) 

CALCULATE NUMERATOR FOR GIVEN VALUE OF THETA, IF L > 0. 

if(L.gt.O) then 
do 50 k=l, L 

num = z*num + ci*b(k) 

) continue 

endif 

CALCULATE DENOMINATOR FOR GIVEN VALUE OF THETA, IF N > 0. 

if(N.gt.O) then 
do 70 k=l, N 

den = z*den + ci*c(k) 

) continue 

endif 

h = num/den 

CONVERT COMPLEX VALUE 'h' INTO MAGNITUDE (mh) AND FHASE(ph) TERMS. 

IF yscal = 'LOG' THEN CONVERT MAGNITUDE TO DECIBELS (dB) . 

DIVIDE BY ZERO AVOIDED BY 'if' STATEMENTS. 

mh(np) = cabs(h) 
if (yscal . eq. ' LOG ' ) then 
if (mh(np) .gt. 0.00001) then 
mh(np) = 20.0*logl0(mh(np) ) 
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else 

mh(np) = -100.0 
endif 
endif 

if (abs(real(h) ) .lt.l.0e-15) then 

if (abs(aimag(h) ) .le.l.0e-15) ph(np)=0.0 
if (aimag(h) .gt.l.0e-15) ph(np)=90.0 
if ( aimag (h) . It . -1 . Oe-15 ) ph (np) =-90 . 0 
else 

ph (np) = ( 180 . 0/pi) *atan2 (aimag (h) , real (h) ) 
endif 

100 continue 

return 

end 



C SUBROUTINE: coeff 



RJRPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE THE 

NUMERATOR AND DENOMINATOR COEFFICIENTS THAT DESCRIBE 
EACH SYSTEM TO BE ANALYZED. IF dsorce = 'S' THEN 
THE MAIN PROGRAM WILL CALL THIS SUBROUTINE. 



subroutine coeff (L,N,nsys,b,c) 
real b(0:L) , c(0:N) 

pi = 4.0*atan(1.0) 
el = L 
en = N 

C*********************************************************************** 
C DEVELOP THE EQUATIONS TO GENERATE VALUES FOR THE ARRAYS b() AND c() 

C IN THIS SPACE. THE STATEMENTS TYPED IN MUST FOLLOW STANDARD 
C FORTRAN 77 RULES AND MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: 

C SIN ( ) , COS() , ABS () ... AN EXAMPLE IS SHOWN BELOW. NOTE THAT THE 
C VALUE nsys CAN BE USED TO DISTINGUISH BEIWEEN SYSTEMS IF MORE THAN 
C ONE SYSTEM (numsys >1) IS TO BE ANALYZED. 

C 

C *** EXAMPLE *** 

C 



168 



C if (nsys.eq.l) then 

C do 2 i=0, L 

C b(i) = cos(i*pi/(2.0*el) ) 

C 2 continue 

C do 3 i=0, N 

C c(i) = cos(2.0*i*pi/(3.0*en)) 

C 3 continue 

C endif 



C*********************************************************************** 

return 

end 
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ANLGFREQ. FOR 



VERSION 2/03/88 



C 
C 
C 

C RJRPOSE: THIS PROGRAM COMPUTES THE FREQUENCY RESPONSE OF 

C OONTINUOUS-TTME SYSTEMS. THE PROGRAM CONSISTS OF A 

C MAIN PROGRAM THAT CONTROLS THE INPUT/OUTPUT AND THE 

C SUBROUTINE afresp THAT COMPUTES THE FREQUENCY 

C RESPONSE. THE USER CAN SELECT ONE OF TWO OPERATING 

C MODES: BATCH OR TEST. IN BATCH MODE THE 

C AMOUNT OF INTERFACE WITH THE USER IS MINIMIZED AND 

C IT IS ASSUMED THAT THE INRJT DATA HAS BEEN STORED IN 

C THE DEFAULT FILE 'ANLGFREQ. IN' . IN THE TEST 

C MODE THE USER IS PROMPTED FOR THE NAME OF THE INRJT 

C FILE OR HAS THE OPTION TO PERFORM A TRIAL RUN BY 

C USING THE INPUT DATA STORED IN THE FILE ' ANLGFREQ. TST' . 

C IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT THE 

C TEST MODE AND MAKE A TRIAL RUN WITH THE PRE- 

C STORED INPUT DATA. THE TEST MODE ECHOES THE 

C INPUT DATA ONTO THE MONITOR TO ALLOW VERIFICATION OF 

C ITS ACCURACY. THIS PROGRAM WILL COMEUTE THE FREQUENCY 

C RESPONSE OF UP TO THREE SYSTEMS. FOR EACH SYSTEM, THE 

C USER HAS THE OPTION OF HAVING THE OUTPUT EXPRESSED IN 

C DECIBELS (dB) . THE OUTPUT OF THIS PROGRAM IS STORED IN 

C TABULAR FORM IN THE FILE ' ANLGFREQ . OUT ' AND IN A FORM 

C SUITABLE FOR PLOTTING IN THE FILE ' ANLGFREQ . DAT ' . 

C 

C 

C***************************** INPUT ********************************* 



C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



THIS PROGRAM ASSUMES THAT EACH CONTINUOUS-TIME SYSTEM IS MODELED 
BY THE EQUATION: H(s) = nun/den WHERE: 



num = b(0)*s**L + b(l) *s**(L-l) + ... + b(L-l)*s + b(L) 
den = a(0) *s**N + a(l)*s**(N-l) + ... + a(N-l)*s + a(N) 



L = A NON-NEGATIVE INTEGER, THE DEGREE OF THE NUMERATOR 
POLYNOMIAL. 

N = A NON-NEGATIVE INTEGER, THE DEGREE OF THE DENOMINATOR 
POLYNOMIAL. 

b(0) . . .b(L) = REAL COEFFICIENTS OF THE NUMERATOR TERMS. 
a(0) . . .a(N) = REAL COEFFICIENTS OF THE DENOMINATOR TERMS. 



THE INPUT PARAMETERS SHOULD BE STORED IN A FILE NAMED 
'ANLGFREQ. IN' . ALL OF THE READ STATEMENTS USED BY THIS PROGRAM 
REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE PAID 
TO THE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DENOTE 'REAL' NUMBERS. THE INPUT PARAMETERS REQUIRED BY THE 
PROGRAM ARE LISTED BELOW. 
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c 


NAME 


TYPE 


RANGE (ARRAYS) 


RESTRICTIONS 


c 


numsys 


INTEGER 




1 <= numsys <= 3 


c 


L 


INTEGER 




0 <= L <= 128 


c 


N 


INTEGER 




0 <= N <= 128 


c 


omegaO 


REAL 






c 


dlomga 


REAL 






c 


numpts 


INTEGER 




1 <= nurrpts <=101 


c 


yscal 


CHARACTER 




'STD' OR 'LOG' 


c 


b() 


REAL 


0,1,2. . .L 


0 <= L <= 128 


c 


a() 


REAL 


0,1,2. . .N 


0 <= N <= 128 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



WHERE: 

numsys = THE NUMBER OF DISTINCT SYSTEMS H(s) TO BE ANALYZED. 

THIS INTEGER VALUE MUST OCCUR AT THE TOP OF THE INPUT 
FILE. IT DELINEATES THE NUMBER OF SYSTEMS TO BE READ BY 
THE PROGRAM AND ANALYZED. FOR EACH SYSTEM (1, . . . , numsys) 
THE PARAMETERS BEIOW MUST APPEAR IN THE INPUT FILE. 

L = THE DEGREE OF THE NUMERATOR POLYNOMIAL. 

N = THE DEGREE OF THE DENOMINATOR POLYNOMIAL. 

omegaO = THE STARTING VALUE OF OMEGA (RAD/S) AS IN S=J*OMEGA. 

dlomga = THE INCREMENT OF OMEGA (RAD/S) . 

numpts = THE NUMBER OF FREQUENCY POINTS FOR WHICH THE OUTFUT IS TO 
BE COMPUTED. 

yscal = A CHARACTER STRING SPECIFYING THE DESIRED MAGNITUDE OPTION: 
'STD' WILL PRODUCE STANDARD MAGNITUDE OUTPUT; 

'LOG' WILL PRODUCE MAGNITUDE EXPRESSED IN DECIBELS (dB) . 

b(k) = THE NUMERATOR COEFFICIENTS IN ORDER b(0) , b(l) , . . . , b(L) . 

a(k) = THE DENOMINATOR COEFFICIENTS IN ORDER a(0) , a(l) , . . . , a(N) . 

NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********. 

THE FORM OF THE INPUT DATA FILE IS: 



LINE # 

1 

2 

3 

4 . . . 4+NN 
5+NN. . . 5+NN+N 
* 



ENTRIES 

numsys 

L, N, numpts , yscal 
dlomga , omegaO 
b(k), k=o,l, ...L 
a(k) , k=0, l, . . .N 



FORMAT 

il 

i3,tll, i3,t21, i3,t31,a3 
2fl0. 0 
6 f 10.0 
6fl0. 0 
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C WHERE: NN = 1/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER. 

C ND = N/6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER. 

C 

C *NOIE: FOR numsys > 1 THE FORMAT OF LINES 2... IS REPEATED. 

C 

C THE FORMAT flO.O USED FOR INPUT DATA PERMITS THE DECIMAL 

C POINT TO BE PLACED ANYWHERE IN THE FIELD OF 10 COLUMNS 

C AND AISO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (EG. 

C 3146.2 = 3. 1462E+03) . 

C 

C 

C***************************** OUTPUT ******************************* 

c 

c 

C THE OUTR1T DATA CREATED BY THE PROGRAM IS STORED IN TABULAR FORM 
C IN THE FILE ' ANLGFREQ . OUT 1 . ADDITIONALLY, THE OUTPUT DATA IS 
C WRITTEN INTO THE FILE 'ANIGFREQ.DAT' TO FACILITATE PLOTTING BY A 
C SEPARATE, USER SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 
C ' ANLGFREQ . DAT ' IS: el2.6, 2x, el2.6. THE FIRST ENTRY CORRESPONDS 
C TO THE ORDINATE VALUE (OMEGA) AND THE SECOND ENTRY THE ABSCISSA 
C VALUE (MAGNITUDE OR PHASE) . ADDITIONAL HEADER INFORMATION IS 
C WRITTEN INTO THE DATA FILE TO ALLOW FOR CONTROL AND LABELING OF 
C EACH PLOT. 

C 

C 

C**************************** EXAMPLE ******************************** 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 



THE INPUT PARAMETERS FOR THE SYSTEM DESCRIBED BELOW ARE STORED IN 
THE SAMPLE INFUT FILE ' ANLGFREQ. TST' AND CAN BE USED FOR A TRIAL 
RUN IN THE TEST MODE. 



SYSTEM: 



GOAL: 



H(S) = 10.0*S/(S**2 + 6. 0*S + 5.0) 

TO OBTAIN THE FREQUENCY RESPONSE FOR THIS SYSTEM FROM 



c 




OMEGA 


= 0.0 TO OMEGA = 4.< 


c 




dlomga 


= 0.2 (RAD/S) . 


c 








c 


FOR THE 


SYSTEM 


DESCRIBED ABOVE THE 


c 








c 


001 






c 


001 


002 


021 STD 


c 


0.2 


0.0 




c 


10.0 


0.0 




c 


1.0 


6.0 


5.0 



C 

C 
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C THE RESULTING OUTPUT DATA FILE ( ' ANIGFREQ.OUT' ) IS: 

C 

C INPUT DATA FOR SYSTEM # 1 

C 

C INPUT DATA SOURCEFILE: ANLGFREQ.TST 
C DEGREE OF NUMERATOR = 1 

C DEGREE OF DENOMINATOR = 2 

C NUMBER OF FREQUENCY POINTS = 21 MAGNITUDE OPTION = 

C STARTING VALUE OF OMEGA = .000000E+00 

C INCREMENT OF OMEGA = .200000E+00 

C 

C THE NUMERATOR COEFFICIENTS b(0) ,b(l) . . .b(L) ARE: 

C 

C . 1000E+02 . 0000E+00 

C 
C 

C THE DENOMINATOR COEFFICIENTS a(0) ,a(l) . . .a(N) ARE: 

C 

C . 1000E+01 . 6000E+01 .5000E+01 

C 
C 

C OUTPUT DATA FOR SYSTEM # 1 

C 



c 


OMEGA 


MAGNITUDE 


PHASE 


c 

c 


(rad/s) 




(DEGREES) 


C 


. 000000E+00 


. 000000E+00 


. 000000E+00 


c 


• 200000E+00 


. 391919E+00 


.763995E+02 


c 


. 400000E+00 


. 740416E+00 


. 636247E+02 


c 


. 600000E+00 


. 102166E+01 


.521935E+02 


c 


. 800000E+00 


. 123370E+01 


.422499E+02 


c 


. 100000E+01 


. 138675E+01 


. 33690LE+02 


c 


. 120000E+01 


. 149402E+01 


. 263098E+02 


c 


. 140000E+01 


. 156719E+01 


. 198954E+02 


c 


. 160000E+01 


. 16153 1E+01 


. 142607E+02 


c 


. 180000E+01 


. 164497E+01 


. 925573E+01 


c 


. 200000E+01 


. 16609 1E+01 


.476364E+01 


c 


. 220000E+01 


. 166654E+01 


. 694459E+00 


c 


. 240000E+01 


. 166435E+01 


302114E+01 


c 


. 260000E+01 


. 165616E+01 


643692E+01 


c 


. 280000E+01 


. 164335E+01 


959500E+01 


c 


. 300000E+01 


. 162698E+01 


125288E+02 


c 


. 320000E+01 


. 160786E+01 


152652E+02 


c 


. 340000E+01 


. 158665E+01 


178262E+02 


c 


. 360000E+01 


. 156386E+01 


202298E+02 


c 


. 380000E+01 


. 153990E+01 


-.224913E+02 


c 


. 400000E+01 


. 151511E+01 


246236E+02 



c 

C END OF RUN, SYSTEM # 1 

C 

c 



STD 
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£************************** MAIN PROGRAM ***************************** 



character infile* 12, mode*l, ylabl*13, yscal*3 

real inh( 101) , ph(101) , omegav(lOl) , a(0:128), b(0:128) 

C PROMPT USER FOR MODE: BATCH OR TEST. 

write (*,1115) 
read (*,1117) mcde 

if( (mode.eq. ' Y ' ) .or. (mode.eq. 'y') ) then 
mode = ' Y' 
write (*,1118) 
read (*,1119) infile 
else 

infile = 'ANLCFREQ.IN' 
endif 

C UNTT=1 DEFINED AS INRJT FILE. UNITS=2,3 DEFUSED AS OUTRJT FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999) 
open (unit=2 , f ile= ' ANICFREQ . OUT ' ) 
open (unit=3 , f ile= ' ANIGFREQ . DAT ' ) 

C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 

read (1,1000) numsys 
numplts = numsys* 2 
write (3, 2000) numplts 

if ((numsys. It. 1) .or. (numsys. gt. 3) ) then 
write (*,1122) numsys 

stop 'Error, numsys must be in the range: 1 <= numsys <= 3. ' 
endif 

do 10 nsys=l, numsys 

data mh/101*0.0/, ph/101*0.0/, omegav/101*0. 0/ 
data a/129*0.0/, b/129*0.0/ 

read(l,1001) L, N, numpts, yscal 
read (1,1002) dlomga, omegaO 

if ((L.lt.0) .or. (L.gt.128) ) then 
write(*, 1124) nsys, L 

stop 'Error, L must be in the range: 0 <= L <= 128. ' 
elseif ( (N. It. 0) .or. (N.gt. 128) ) then 
write (*, 1125) nsys, N 

stop 'Error, N must be in the range: 0 <= N <= 128. ' 
endif 
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if ( (numpts. It. 1) .or. (numpts. gt. 101) ) then 
write ( * , 1127 ) nsys , nuirpts 

stop 'Error, numpts must be in the range: 0 <= numpts <= 101. 1 
endif 

if ( (yscal . eq. ' STD ' ) .or. (yscal . eq. 1 std 1 ) ) then 
yscal = 'STD' 
ylabl = 1 MAGNITUDE 1 

elseif ( (yscal. eq. 'LOG' ) .or. (yscal. eq. 'log' ) ) then 
yscal = 'DOG' 
ylabl = 'MAGNITUDE (dB) ' 
else 

write (*,1128) yscal 

stop 'Error, yscal must be the string: ' 'LOG' ' or ' 'STD' ' . ' 
endif 



C READ THE SYSTEM COEFFICIENTS b() AND a() . 

read (1,1003) (b(k),k=0,L) 
read (1, 1003) (a(k) ,}^=0,N) 

C WRITE THE INIUT PARAMETERS INTO OUTPUT FILE: ANLGFREQ.OUT. 



write (2, 1008) 
write (2, 1010) 
write (2, 1110) 
write (2, 1111) 
write (2, 1112) 
write (2, 1113) 
write (2, 1114) 
write (2, 1004) 
write (2, 1005) 
write (2, 1006) 
write (2, 1005) 
write (2, 1009) 
write (2, 1126) 
write (2, 1007) 



nsys 

infile 

L 

N 

numpts, yscal 
omega 0 
dlomga 

(b(k) ,k=0,L) 

(a(k) ,k=0,N) 

nsys 

ylabl 



C FOR TEST MODE ECHO ALL INPUTS ONTO MONITOR (UNIT = *) . 



if (mode. eq. 'Y' ) 
write (*, 1120) 
write (*,1110) 
write (*,1111) 
write (*,1112) 
write (*,1113) 
write (*, 1114) 
write (*,1004) 
write (*,1005) 
write (*, 1006) 
write (*,1005) 
write (*,1123) 



then 

nsys, infile 

L 

N 

numpts , yscal 

omegaO 

dlomga 

(b(k) ,k=0,L) 

(a(k) ,fc=0,N) 
nsys 
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pause 'END OF RUN, STRIKE <CR> WHEN READY TO CONTINUE' 
endif 

C CALL afresp TO COMHJTE FREQUENCY RESPONSE. 

call afresp (b, a ,mh, ph, L, N, omegaO , dlomga, omegav, numpts , yscal) 

C WRITE RESULTS INTO OUTPUT FILE: ANIGFREQ.DAT. 

write (3,2001) numpts 
write (3,*) 'MAGNITUDE RESPONSE' 
write (3,*) 'OMEGA (rad/s) ' 
write (3, 2 003) ylabl 
do 55 np = 1, numpts 

write(3,2010) omegav(np) , mh(np) 

55 continue 

write (3, 2001) numpts 
write (3,*) 'PHASE RESPONSE' 
write(3, *) ' OMEGA ( rad/s ) ' 
write (3, 2003) ' PHASE (DEG) ' 
do 56 np = 1, numpts 

write (3, 2010) omegav(np) , ph(np) 

56 continue 

C WRITE RESULTS INTO OUTPUT FILE: ANLGFREQ . OUT. 
do 150 np=l, numpts 

write(2, 1013) omegav(rp) , mh(np) , ph(np) 

150 continue 

write (2, 1123) nsys 

10 continue 

write(*, 1121) 

999 close (unit=l) 
close ( uni t=2) 
close (unit=3 ) 

if (ierr.gt.0) then 
write (*,1116) ierr 
endif 

C ************ INPUT FORMAT ************* 

1000 format ( i3 ) 

1001 format (i3, til, i3,t21, i3,t31,a3) 

1002 format (2f 10.0) 

1003 format(6(fl0.0) ) 
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c ***************************************** 



1004 format (t4, 'THE NUMERATOR COEFFICIENTS b(0) ,b(l) . . .b(L) ARE: ' ,/) 

1005 format (6 (2X, ell. 4) ,//) 

1006 Of ormat (// , t4 , 'THE DENOMINATOR COEFFICIENTS a(0) ,a(l) . . .a(N) ' , 

1* ARE: ' ,/) 

1007 format (t8, ' (rad/s) ' ,24x, ' (DEGREES) ' ,/) 

1008 format (tl6, ' INPUT DATA FOR SYSTEM # ' ,il,//) 

1009 format (///,tl6, 1 OUTPUT DATA FOR SYSTEM # ',il,/) 

1010 f ormat (t4, 'INPUT DATA SOURCEFILE: ' ,al2) 

1013 format(t4,3(el2.6,4x) ) 

1110 format (t4, 'DEGREE OF NUMERATOR = ' ,i3) 

1111 format (t4, 'DEGREE OF DENOMINATOR = \i3) 

1112 0 format (t4, 'NUMBER OF FREQUENCY POINTS = ' , i3,t40, 'MAGNITUDE', 

1' OPTION = ' ,a3) 

1113 format (t4, 'STARTING VALUE OF OMEGA = ',el2.6) 

1114 format (t4, 'INCREMENT OF CMEGA = \el2.6,/) 

1115 0format(lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : ',\,) 

1116 Oformat(///,lx, 'ERROR OPENING INPUT FILE, PROGRAM TERMINATED. ' , 
l//,lx, 'ERROR CODE: ' ,i4, /////) 

1117 format (al) 

1118 Oformat (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 

1* BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/, ' IN THE FILE: ANIGFREQ . TST ' , 

3 ' TYPE: ANIGFREQ. TST <CR>',/,' FILENAME: ’ , \, ) 

1119 format (al2) 

1120 f ormat (////, t4, 'SYSTEM # ' ,il, ' INPUT DATA SOURCEFILE: ',al2) 

1121 Of ormat (/,t4, 'TABULAR OUTPUT DATA IS STORED IN FILE: ANIGFREQ . OUT ' 
l,/,t4, 'PLOTTING DATA IS STORED IN FILE: ANIGFREQ. DAT ' ) 

1122 format (//////, t2, "The value of numsys is: ' ,il, '.') 

1123 format(/,lx,13('-') , ' END OF RUN, SYSTEM #', il,2x, 13 ('-') ,//) 

1124 0format(//////,t2, 'The degree (L) of the numerator for system ', 

1'# ' ,il, ' is : L = ' ,i3, ' . ') 

1125 0format(//////,t2, 'The degree (N) of the denominator for system ', 
1'# ' , il, * is : N = 1 , i3 , ' - ' ) 

1126 format (///,t8, 'OMEGA' ,t21,al3, t40, 'PHASE') 

1127 format (//////, t2, 'The value of nurnpts for system ' , il, ' is: ',i3) 

1128 format (//////, t2 , 'The value of yscal is: ' ,a3,'.') 

2000 format (il) 

2001 format (i3) 

2003 format (al3) 

2010 format(el2.6,2x,el2.6) 

end 
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c 



SUBROUTINE: afresp 



C PURPOSE: THIS SUBROUTINE COMPUTES THE FREQUENCY RESPONSE OF 

C THE SYSTEM. ALL FREQUENCY CALCULATIONS ARE IN RADIANS, 

C HOWEVER THE OUTPUT IS CONVERTED TO DEGREES. 

C THE OUTPUT FORMAT FOR EACH FREQUENCY INCREMENT IS: 

C MAGNITUDE (M) PHASE (P) AS IN: M*EXP(J*P) . 



subroutine afresp (b,a,mh,ph,L,N, omegaO , dloinga , omegav , nunpts , yscal ) 

real mh(numpts) , ph(nurnpts) , omegav ( nunpts ) 
real b(0:L), a(0:N), ims, res 
character yscal *3 
complex s, den, num, h, ci 

C DEFINE CONSTANTS. 

ci = (1.0, 0.0) 
pi = 4.0*atan(1.0) 

C ITERATE FROM omegaO, IN INCREMENTS OF dlomga. 

do 100 np=l, numpts 
num = ci*b(0) 
den = ci*a(0) 

omegav (np) = omegaO + (np-1) *dlomga 
res =0.0 
ims = omegav (np) 
s = cmplx(res, ims) 

C CALCULATE NUMERATOR FOR GIVEN VALUE OF OMEGA, IF L > 0. 

if(L.gt.O) then 
do 50 k=l, L 

num = s*num + ci*b(k) 

50 continue 

endif 

C CALCULATE DENOMINATOR FOR GIVEN VALUE OF OMEGA, IF N > 0. 

if(N.gt.O) then 
do 70 k=l, N 

den = s*den + ci*a(k) 

70 continue 

endif 

h = num/den 
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o o o 



CONVERT COMPLEX VALUE 'h' INTO MAGNITUDE (Tnh) AND PHASE (ph) TERMS. 
IF yscal = 'LOG' THEN CONVERT MAGNITUDE TO DECIBELS (dB) . 

DIVIDE BY ZERO AVOIDED BY 'if' STATEMENTS. 

mh(np) = cabs(h) 
if (yscal. eq. 'LOG') then 
if (mh(np) .gt. 0.00001) then 
mh(np) = 20.0*logl0(mh(np) ) 
else 

inh(np) = -100.0 
endif 
endif 

if (abs(real(h) ) .lt.l.0e-15) then 

if (abs(aimag(h) ) .le.l.0e-15) ph(np)=0.0 
if (aimag(h) .gt. 1.0e-15) ph(np)= 90.0 
if (aimag(h) .lt.-1.0e-15) ph(np)=-90.0 
else 

ph(np) = ( 180. 0/pi) *atan2 (aimag (h) , real (h) ) 
endif 

100 continue 

return 

end 
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DFT.POR 



VERSION: 2/03/88 



C 

C 

c 

C RJRPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



THIS PROGRAM COMPUTES THE DISCRETE FOURIER TRANSFORM 
(DFT) OR THE INVERSE DISCRETE FOURIER TRANSFORM (IDFT) OF 
A SEQUENCE OF COMPLEX INPUT DATA. THE PROGRAM CONSISTS 
OF A MAIN PROGRAM AND THREE SUBROUTINES. THE SUBROUTINE 
dft COMFUTES THE DISCRETE FOURIER TRANSFORM OF THE 
INPUT ARRAY; THE SUBROUTINE invdft COMPUTES THE 
INVERSE DISCRETE FOURIER TRANSFORM; AND THE SUBROUTINE 
sample AT .TOWS THE USER TO GENERATE THE INPUT SEQUENCE BY 
WRITING THE APPROPRIATE EQUATIONS. IF THE USER ELECTS 
TO GENERATE THE INPUT DATA BY USING THE SUBROUTINE 
sample, THE EQUATIONS MUST BE WRITTEN INTO THE 
SUBROUTINE USING STANDARD FORTRAN 77 EXECUTABLE STATE- 
MENTS AND THE INPUT DATA GENERATED MUST BE STORED IN 
THE ARRAY xin() . THE OUTPUT OF 'DFT. FOR' IS STORED IN 
THE ARRAY xout() . THE USER HAS THE OPTION OF SELECTING 
ONE OF TWO OPERATING MODES: BATCH OR TEST. IN BATCH 
MODE THE AMOUNT OF INTERACTION WITH THE USER IS 
MINIMIZED AND IT IS ASSUMED THAT THE INPUT PARAMETERS 
HAVE BEEN STORED IN THE INPUT FILE 'DFT. IN'. IN 
TEST MODE THE USER IS PROMPTED FOR THE NAME OF THE 
INPUT FILE OR HAS THE OPTION TO PERFORM A TRIAL 
RUN USING THE DATA STORED IN THE FILE 'DFT.TST' . 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT TEST 
MODE AND MAKE A TRIAL RUN WITH THE PRESTORED 
DATA. THE TEST MODE ECHOES PORTIONS OF THE 
INPUT DATA ONTO THE MONITOR TO ALLOW VERIFICATION 
OF ITS ACCURACY. THE OUTPUT IS STORED IN TABULAR FORM 
IN THE FILE 'DFT. OUT' AND IN A FORM SUITABLE FOR 
PLOTTING IN THE FILE 'DFT. DAT'. 



C****************************** INPUT ******************************** 



C 

C 

C THIS PROGRAM ASSUMES THAT THERE ARE 'N' COMPLEX VALUES IN THE 
C INPUT SEQUENCE. THE INPUT SEQUENCE IS ASSUMED TO BE DEFINED IN THE 
C INTERVAL: 0 TO N-l. IF THE INPUT SEQUENCE CONSISTS OF 'REAL' NUMBERS, 

C THE IMAGINARY PART IS STORED AS 0.0. THE VALUE 'N' AS WELL AS THE 
C OTHER PARAMETERS DESCRIBED BEIDW SHOULD BE STORED IN THE INPUT 
C FILE 'DFT. IN' . ALL OF THE READ STATEMENTS USED BY THIS PROGRAM 
C REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE PAID TO 
C THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
C DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 

C 

C 
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c 

n 


NAME 


TYPE 


RANGE (ARRAYS) 


RESTRICTIONS 


\ - 
c 


N 


INTEGER 




1 <= N <= 256 


c 


dsorce 


CHARACTER 




'F' OR 'S' 


c 


option 


CHARACTER 




'DFT' OR 'INV 


c 


xin() 


COMPLEX 


0, 1, . .., N-l 


1 <= N <= 256 



c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



WHERE: 

N = AN INTEGER THAT SPECIFIES THE NUMBER OF COMPLEX VALUES IN THE 
INPUT SEQUENCE. 

dsorce = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INFJT SEQUENCE IS TO BE READ FROM A FILE (F) OR TO BE 
GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN THE 
SUBROUTINE sample. 

option = A CHARACTER STRING OF THE LETTERS 'DFT' OR 'INV' 

DENOTING WHETHER THE DFT OR THE INVERSE DFT IS TO BE 
PERFORMED ON THE INFJT DATA. 

xin() = THE ARRAY OF COMPLEX INFJT DATA. IF dsorce = 'F' 

IS SELECTED THEN THE USER MUST SUPPLY THE N INFJT 
VALUES IN THE FILE. IF dsorce = 'S' THEN THE USER 
HAS ELECTED TO GENERATE THE INFJT SEQUENCE BY WRITING 
THE APPROPRIATE FORTRAN STATEMENTS IN THE SPACE 
PROVIDED IN SUBROUTINE sample. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE 
RECOMPILED BEFORE EXECUTION. 

NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********* 
THE FORM OF THE INPUT DATA FILE IS: 



LINE# 

1 

2. . .N+l 



NOTES 1. 



ENTRIES 

N, dsorce , option 
xin() 



FORMAT 

i3,tll,al,t21,a3 

2fl0. 0 



LINES 2. . .N+l ARE ONLY REQUIRED IF dsorce = 'F' . 

IF dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE N VALUES FOR xin() IN THE SUBROUTINE sample. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS IN 
SUBROUTINE sample TO GENERATE xin() . 

THE FORMAT flO.O USED FOR INPUT DATA PERMITS THE 
DECIMAL POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE 
USED (E.G., 3146.2 = 3.1462E+03). 
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C****************************** OUTPUT ******************************* 



THE INHJT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR FORM 

IN THE FILE 'DFT.OUT'. ADDITIONALLY, THE INPUT SEQUENCE (REAL AND 
IMAGINARY) AND THE OUTPUT SEQUENCE (MAGNITUDE AND PHASE) ARE WRITTEN 

INTO THE FILE 'DFT.DAT' TO FACILITATE PLOTTING BY A SEPARATE, USER 

SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 'DFT.DAT' IS: 

el2 .6, 2x, el2 . 6 . THE FIRST ENTRY CORRESPONDS TO THE ORDINATE VALUE 

AND THE SECOND ENTRY, THE ABSCISSA VALUE. ADDITIONAL HEADER 
INFORMATION IS WRITTEN INTO 'DFT.DAT' TO ALLOW FOR CONTROL AND 
LABELING OF EACH PLOT. 



****************************** example 



****************************** 



THE INPUT PARAMETERS BELOW ARE STORED IN THE INPUT FILE 
'DFT.TST' . THERE ARE FIVE DATA POINTS IN THE INPUT SEQUENCE AND THE 

C GOAL IS TO CALCULATE THE DISCRETE FOURIER TRANSFORM OF THE SEQUENCE. 



C 

C 



c 


005 


F 


c 


0.0 


0.0 


c 


1.0 


0.0 


c 


2.0 


0.0 


c 


3.0 


0.0 


c 


4.0 


0.0 


c 






c 






c 


THE 


RESULTING 



DFT 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 



INPUT DATA SOURCEFILE: DFT.TST 
VALUE OF N = 5 dsorce = F 



option = DFT 



INPUT DATA 



SAMPLE # REAL 



0 

1 

2 

3 

4 



, 000000E+00 
. 100000E+01 
. 200000E+01 
, 300000E+01 
. 400000E+01 



IMAGINARY 

. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 
. 000000E+00 
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OUTPUT DATA 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 



SAMPLE # REAL 



IMAGINARY 



0 

1 

2 

3 

4 



. 100000E+02 
250000E+01 
250000E+01 
-.250000E+01 
-.250000E+01 



. 000000E+00 
. 344096E+01 
•812300E+00 
812299E+00 
344096E+01 



MAGNITUDE 

. 100000E+02 
. 425325E+01 
•262866E+01 
. 262866E+01 
. 425326E+01 



FHASE 

(DEGREES) 

. 000000E+00 
. 126000E+03 
. 162000E+03 
162000E+03 
126000E+03 



FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCE xin() QOUID HAVE BEEN 
GENERATED BY SPECIFYING dsorce = 'S' AND WRITING THE APPROPRIATE 
FORTRAN STATEMENTS INTO SUBROUTINE sample. THE STATEMENTS THAT 
COUID BE USED TO ACCOMPLISH THIS ARE WRITTEN INTO THE SUBROUTINE 
BUT ARE 'COMMENTED OUT' . 



C*************************** MAIN PROGRAM **************************** 



character infile*12, option*3, mode*l, dsorce*l, yscal*3 
complex xin (0:255) , xout(0:255) 
real xmag(0:255) , xph(0:255), nn 

C FRCMPT USER FOR MODE: BATCH OR TEST. 

write (*,1115) 
read (*,1117) mode 

if ( (mode.eq. 'y' ) .or. (mode.eq. 'Y' ) ) then 
mode = ' Y' 
write (*,1118) 
read (*,1119) infile 
else 

infile= ' DFT . IN ' 
endif 

C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 

open (unit=l , f ile=inf ile, status= ' old' , iostat=ierr , err=999) 
open (unit=2 , f ile= ' DFT . OUT ' ) 
open (unit=3 , file= ' DFT . DAT ' ) 

C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 

read (1,1000) N, dsorce, option 
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if ( (N.lt.l) .or. (N.gt.256) ) then 
write (*,1010) N 

stop 'The allowed values for N are: 1 <= N <= 256. ' 

endif 

if ( (option . eq. ' dft ' ) . or . (option . eq. ' DFT ' ) ) then 
option = 'DFT' 

elseif( (option. eq. 'inv') .or. (option. eq. 'INV')) then 
option = 'INV' 
else 

write (*,1011) option 

stop "The allowed values for option are: 1 'DFT' ' or ' 'INV' ' . ' 
endif 

if ( (dsorce.eq. ' f ' ) .or. (dsorce.eq. 'F' ) ) then 
dsorce = 'F' 

elseif ( (dsorce.eq. 's' ) .or. (dsorce.eq. 'S' ) ) then 
dsorce = 'S' 
else 

write ( * , 1009 ) dsorce 

stop 'The allowed values for dsorce are: ' 'S' ' or ' ' F ' ' . ' 
endif 

C DEFINE CONSTANTS. 

en = N 
k = 8 

pi = 4.0*atan(1.0) 
numplts = 4 
yscal = 'STD' 

C FOR dsorce = ' F' READ THE INRJT SEQUENCE FRCM THE INRJT FILE. 

C FOR dsorce = 'S' CALL sample TO GENERATE THE INRJT SEQUENCE. 

C THE INRJT SEQUENCE IS STORED IN THE ARRAY xin() . 

if (dsorce.eq. 'F' ) then 
read(l,1001) (xin(i) , i=0,N-l) 
else 

call sample (xin,N) 
endif 

C FOR TEST MODE ECHO INRJT DATA ONTO THE MONITOR (UNIT = *) . 

if (mode. eq. 'Y' ) then 
write (*,1016) infile 
if (N. It. 8) k?=N 

write(*,1017) N, dsorce, option 
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write (*,1012) k 
write (*,1015) 
do 1 i=0, k-1 

write (*,1020) i, xin(i) 
continue 
endif 

C WRITE THE INHJT SEQUENCE INTO FILE: DFT.DAT. 

write (3, 2 000) numplts 
write (3, 2001) N 

write(3,*) 'INHJT SEQUENCE (REAL)' 
write(3,*) 'SAMPLE # ' 
write (3,*) 'REAL xin() ' 
do 55 i=0, N-l 
nn = i 

write(3,2010) nn, real(xin(i)) 

55 continue 

write (3, 2001) N 

write (3,*) 'INHJT SEQUENCE (IMAGINARY)' 
write (3,*) 'SAMPLE # ' 
write(3,*) 'IMAG xin() ' 
do 56 i=0, N-l 
nn = i 

write (3, 2010) nn, airtiag(xin(i) ) 

56 continue 

C WRITE INHJT DATA INTO FILE: DFT.OUT. 

write (2, 1016) infile 
write (2, 1017) N, dsorce, option 
write (2, 1014) 
write (2, 1015) 
do 2 i=0, N-l 
write(2,1020) i, xin(i) 

2 continue 

C CALL dft OR invdft TO PERFORM THE SELECTED COMPUTATION. 

if ( option . eq. ' INV ' ) then 
call invdft (N,xin,xout) 
else 

call dft(N,xin,xout) 
endif 

C TRANSFORM OUTHJT DATA INTO EXPONENTIAL FORM: xmag*EXP( j*xph) . 
C EHASE xph() IS EXPRESSED IN DEGREES. 

do 60 i=0, N-l 
xmag(i) = cabs(xout(i) ) 
if (abs(real(xout(i) ) ) .lt.l.0e-15) then 
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if (abs(aimag(xout(i) ) ) .le.l.0e-15) jq?h(i)=0.0 
if (aimag(xout(i) ) .gt.l.0e-15) xph(i)=90.0 
if (aiitiag(xout(i) ) .lt.-1.0e-15) xph(i)=-90.0 
else 

xph(i) = (180.0/pi) *atan2 (aimag(xout (i) ) , real (xout (i) ) ) 
endif 

60 continue 

C WRITE THE OUTHJT DATA INTO FILE: DFT.DAT. 

write (3, 2001) N 
write (3,*) 'OUTRJT MAGNITUDE' 
write (3,*) 'SAMPLE #' 
write (3,*) 'MAGNITUDE' 
do 57 i=0, N-l 
nn = i 

write(3,2010) nn, xmag(i) 

57 continue 

write (3, 2001) N 
write (3,*) 'OUTHJT PHASE' 
write (3,*) 'SAMPLE #' 
write(3, *) 'HIASE (DEG)' 
do 58 i=0, N-l 
nn = i 

write(3, 2010) nn, xph(i) 

58 continue 

C WRITE THE OUTHJT DATA INTO FILE: DFT.OUT. 

write (2, 1025) 
do 5 i=0, N-l 

write(2, 1030) i, xout(i) , xmag(i) , xph(i) 

5 continue 

write (*, 1019) 

999 close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.0) then 
write (*,1116) infile, ierr 
endif 

C ******** INKJT FORMAT ******** 

1000 format(i3 , tll,al, t21,a3) 

1001 format (2f 10.0) 
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Q ******************************** 



1009 format ( lx, 'dsorce = ' ,al,2x, 'Error, illegal value for dsorce. ') 

1010 format ( lx, 'N = ' ,i3,2x, 'Error, value of N not allowed.') 

1011 format (lx, 'option = ' ,a3,2x, 'Error, illegal value for option.') 

1012 0 format (/ , ' THE FIRST ',il,' VALUES OF xin() ARE LISTED BED3W. ' , 
V, ' VERIFY THAT THE DATA IS CORRECT. ' ,/) 

1014 format (// , tl9 , ' INFUT DATA ' ,//) 

1015 format(/, t4, 'SAMPLE #' ,tl5, 'REAL' ,t29, 'IMAGINARY' ,/) 

1016 format(//////,' INHJT DATA SOURCEFILE: ',al2) 

1017 format(' VALUE OF N = ' ,i3,5x, 'dsorce = ' ,al,5x, 'option = ',a3) 

1019 Of ormat (// , ' TABULAR OUTHJT DATA IS STORED IN FILE: DFT.OUT. ', 
1/, ' PLOTTING DATA IS STORED IN FILE: DFT.DAT. ') 

1020 format(t6,i3,tl3,2(el2.6,2x) ) 

1025 0format(///,t33, 'OUTHJT DATA' ,//,t4, 'SAMPLE # ' ,tl7, 'REAL' , 

lt33 , 'IMAGINARY' ,t49, 'MAGNITUDE' ,t67, 'PHASE' ,/,t65, ' (DEGREES) ') 
1030 format(t5,i3,tl5,4(el2.6,4x) ) 

1115 0 format (lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : \\,) 

1116 0format(///,lx, 'ERROR OPENING INHJT FILE: ' ,al2,/,lx, 'PROGRAM' , 
1' TERMINATED. ' ,//,lX, 'ERROR CODE: ' ,i4, /////) 

1117 format (al) 

1118 Of ormat (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED' , 

1' BY <CR> . ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: DFT.TST' , 

3' TYPE: DFT.TST <CR>' ,/, ' FILENAME: \\,) 

1119 format (al2) 

2000 format (il) 

2001 format (i3) 

2010 format(el2.6,2x,el2.6) 

end 



C SUBROUTINE: invdft 



C HJRPOSE: THIS SUBROUTINE ACCEPTS AS INHJT THE COMPLEX ARRAY 

C xin() , COMPUTES THE INVERSE DFT OF THE ARRAY, AND 

C RETURNS THE RESULTS IN THE ARRAY xout() . 



subroutine invdft (N,xin,xout) 
complex xin(0:N-l) , xout(0:N-l) 

en = N 
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C COMPUTE THE COMPLEX CONJUGATE OF THE INRJT SEQUENCE. 

do 70 i=0, N-l 
xin(i) = conjg(xin(i) ) 

70 continue 

C COMPUTE THE DISCRETE FOURIER TRANSFORM OF THE ARRAY, 
call dft(N,xin,xout) 

C COMPUTE THE COMPLEX CONJUGATE OF THE RESULTING ARRAY. 

do 80 i=0, N-l 
xout(i) = conjg(xout(i) )/en 
80 continue 

return 

end 



C SUBROUTINE: dft 



PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 

xin() , COMPUTES THE DISCRETE FOURIER TRANSFORM (DFT) 

OF THE ARRAY, AND REIURNS THE RESULTING SEQUENCE IN THE 
COMPLEX ARRAY xout() . 



subroutine dft(N,xin,xout) 

complex xin(0:N-l) , xout(0:N-l), w, wm 

pi = 4.0*atan(1.0) 
en = N 

if(N-l.eq.O) then 
xout(O) = xin(O) 
else 

alpha = 2.0*pi/en 
w = cmplx (cos (alpha) , -sin (alpha) ) 
do 100 k=0, N-l 
wm = w**k 
xout(k) = xin(N-l) 
do 50 l=N-2 , 0, -1 

xout(k) = xout(k)*wm + xin(l) 

50 continue 

100 continue 
endif 



return 

end 
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c 



SUBFOJTINE : sample 



PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 

OF A CONTINUOUS FUNCTION. THE SAMPLES ARE RETURNED 
TO THE MAIN PROGRAM IN THE ARRAY xin() . 



subroutine sample (xin,N) 
complex xin(0:N-l) 

pi = 4.0*atan(1.0) 
en = N 



C DEVELOP THE SAMPLING ALGORITHM IN THIS SPACE. THE STATEMENTS 
C TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND MAY USE 
C FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN() , COS() , ABS() . . . 

C AN EXAMPLE IS SHOWN BEIOW. THE INPUT SEQUENCE MUST BE STORED IN 
C THE ARRAY xin() . DFT.FOR MUST BE COMPILED AGAIN BEFORE EXECUTION 
C IF THIS SUBROUTINE IS USED. 

C 

c *** EXAMPLE *** 

C 

C do 3 i=0, N-l 

C if(i.le.4) then 

C xin(i) = cmplx(i,0.0) 

C else 

C xin(i) = crnplx(0. 0,0.0) 

C endif 

C 3 continue 



return 

end 
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VERSION: 2/03/88 



C 

C 

C 

C RJRPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



PRDGRM. FOR 



THIS PROGRAM COMHJTES THE PERIODOGRAM OF A CAUSAL 
SEQUENCE USING THE DISCRETE FOURIER TRANSFORM (DFT) 
TECHNIQUE. THE EQUATION FOR THE COMPUTATION OF THE 
N-POINT PERIODOGRAM IS: Sxx(k) = xk(k) *conjg(xk(k) )/N 

WHERE THE ARRAY xk() CONTAINS THE VAHJES OF THE DFT 
OF THE INPUT ARRAY xn() , I.E. , xk() = DFT[xn() ] . THE 
PROGRAM CONSISTS OF A MAIN PROGRAM AND TWO SUBROUTINES. 
THE SUBROUTINE dft COMPUTES THE DISCRETE FOURIER 
TRANSFORM OF THE INPUT ARRAY, AND THE SUBROUTINE 
sample ALLOWS THE USER TO GENERATE THE INPUT DATA BY 
WRITING THE APPROPRIATE EQUATIONS. IF THE USER ELECTS 
TO GENERATE THE INPUT DATA BY USING THE SUBROUTINE 
sample, THE EQUATIONS MUST BE WRITTEN INTO THE 
SUBROUTINE USING STANDARD FORTRAN 77 EXECUTABLE STATE- 
MENTS AND THE INPUT DATA MUST BE STORED IN THE ARRAY 
xn() . AISO, IF EQUATIONS ARE WRITTEN INTO sample, 

THE PROGRAM MUST BE COMPILED AGAIN BEFORE EXECUTION. THE 
RESULTS OF THE PERIODIOGRAM COMPUTATION ARE STORED IN 
THE ARRAY Sxx() . THE USER HAS THE OPTION OF CAUSING THE 
OUTPUT TO BE CONVERTED TO DECIBELS. THE USER AISO HAS 
THE OPTION OF SELECTING ONE OF TWO OPERATING MODES: BATCH 
OR TEST. IN BATCH MODE THE AMOUNT OF INTERACTION WITH 
THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE INPUT 
PARAMETERS HAVE BEEN STORED IN THE INPUT FILE 'PRDGRM. IN' . 
IN THE TEST MODE THE USER IS PROMPTED FOR THE NAME 
OF THE INPUT FILE OR HAS THE OPTION TO PERFORM A TRIAL 
RUN USING THE DATA STORED IN THE FILE ' PRDGRM. TST' . 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT TEST 
MODE WHEN PROMPTED, AND MAKE A TRIAL RUN WITH THE PRE- 
STORED DATA. ADDITIONALLY, THE TEST MODE ECHOES 
PORTIONS OF THE INPUT DATA ONTO THE MONITOR TO ALLOW 
VERIFICATION OF ITS ACCURACY. THE OUTPUT IS STORED IN 
TABULAR FORM IN THE FILE 'PRDGRM. OUT' AND IN A FORM 
SUITABLE FOR PLOTTING IN THE FILE 'DFT. DAT'. 



C******************* *********** INPUT ******************************** 

C 

C 

C THIS PROGRAM ASSUMES THAT THERE ARE 'N' COMPLEX DATA POINTS IN THE 
C INPUT SEQUENCE. THE INPUT SEQUENCE IS ASSUMED TO BE DEFINED IN 
C THE INTERVAL: 0 TO N - 1. IF THE INPUT SEQUENCE CONSISTS OF 'REAL' 

C NUMBERS, THE IMAGINARY PART IS STORED AS 0.0. THE VALUE 'N' AS WELL 
C AS THE OTHER PARAMETERS DESCRIBED BELOW SHOULD BE STORED IN THE 
C INPUT FILE 'PRDGRM. IN' . ALL OF THE READ STATEMENTS USED BY THIS 
C PROGRAM REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 



NAME 


TYPE 


RANGE (ARRAYS) 


RESTRICTIONS 


N 


INTEGER 




1 <= N <= 256 


dsorce 


CHARACTER 




'F' OR 'S' 


yscal 


CHARACTER 




'STD' OR 'LOG' 


xn() 


COMPLEX 


0,1,2. . .N-l 


1 <= N <= 256 


WHERE: 









N = AN INTEGER THAT SPECIFIES THE NUMBER OF VALUES IN THE INPUT 
SEQUENCE. 

dsorce = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT DATA IS TO BE READ FROM A FILE (F) OR TO BE 
GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN THE 
SUBROUTINE sample. 

yscal = A CHARACTER STRING SPECIFYING THE DESIRED MAGNITUDE OPTION 
'STD' WILL PRODUCE STANDARD MAGNITUDE OUTPUT; 

'LOG' WILL PRODUCE MAGNITUDE EXPRESSED IN DECIBELS (dB) . 

xn() = THE ARRAY OF COMPLEX INPUT DATA. IF dsorce = 'F' 

IS SPECIFIED THE USER MUST SUPPLY THE N INPUT 
VALUES IN THE FILE. IF dsorce = 'S' THEN THE USER 
HAS ELECTED TO GENERATE THE INPUT SEQUENCE BY 
WRITING THE APPROPRIATE FORTRAN STATEMENTS IN THE 
SPACE ALLOCATED IN SUBROUTINE sample. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE 
RECOMPILED BEFORE EXECUTION. 

NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********* 

THE FORM OF THE INPUT DATA FILE IS: 

LINE# ENTRIES FORMAT 



1 N, dsorce, yscal i4,tll,al,t21,a3 

2...N+1 xn() 2fl0. 0 



NOTES 1. LINES 2...N+1 ARE ONLY REQUIRED IF dsorce = 'F'. 

IF dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE N VALUES OF xn() IN SUBROUTINE sample. THE USER 
MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS IN 
SUBROUTINE sample AND THE VALUES MUST BE STORED IN THE 
ARRAY xn() . 
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C 2. THE FORMAT flO.O USED FOR INFUT DATA PERMITS THE 

C DECIMAL POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN 

C COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE 

C USED (E.G. , 3146.2 = 3.1462E+03). 

C 

C 

0 ******** ******* ******* ******* OUTPUT ******************************* 



C 

C 

C THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
C FORM IN THE FILE 'PRDGRM.OUT' . ADDITIONALLY, THE INPUT SEQUENCE 
C (REAL AND IMAGINARY) AND THE OUTPUT SEQUENCE ARE STORED IN THE FILE 
C 'PRDGRM.DAT' TO FACILITATE PLOTTING BY A SEPARATE, USER SUPPLIED 
C PROGRAM. THE FORMAT OF THE DATA IN 'PRDGRM.DAT' IS: el2.6,2x,el2.6. 
C THE FIRST ENTRY CORRESPONDS TO THE ORDINATE VALUE AND THE SECOND 
C ENTRY, THE ABSCISSA VALUE. ADDITIONAL HEADER INFORMATION IS WRITTEN 
C INTO 'PRDGRM.DAT' TO ALLOW FOR CONTROL AND LABELING OF EACH PLOT. 

C 

C 



example ******************************* 



THE INFUT PARAMETERS BELOW ARE STORED IN THE INPUT FILE 
'PRDGRM.TST' . THERE ARE EIGHT POINTS IN THE INPUT SEQUENCE AND 
THE GOAL IS TO CALCULATE THE PERIODOGRAM OF THE DATA. 



C***************************** 

c 
c 
c 
c 
c 
c 
c 

STD 



c 


005 


F 


c 


0.0 


0.0 


c 


1.0 


0.0 


c 


2.0 


0.0 


c 


3.0 


0.0 


c 


4.0 


0.0 



C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C* 

c 

c 

c 



THE RESULTING OUTPUT FILE 'PRDGRM.DAT' IS: 



INPUT DATA SOURCEFILE: PRDGRM.TST 
VALUE OF N = 5 dsorce = F 



INFUT DATA 
xn() 



MAGNITUDE OPTION = STD 



n 

0 

1 

2 

3 

4 



REAL 

. 0000E+00 
. 1000E+01 
. 2000E+01 
. 3000E+01 
. 4000E+01 



IMAGINARY 
. 0000E+00 
. 0000E+00 
. 0000E+00 
. 0000E+00 
. 0000E+00 
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OUTRJT DATA 



C 

C 

C 

C 

C 

C 

c 

c 

c 

c 



k Sxx(k) 

0 . 2000E+02 

1 . 3618E+01 

2 . 1382E+01 

3 . 1382E+01 

4 . 3618E+01 



C 

C 

C FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCE xn() COULD HAVE 
C BEEN GENERATED BY SPECIFYING dsorce = 'S' AND WRITING THE 
C APPROPRIATE FORTRAN STATEMENTS INTO SUBROUTINE sample. THE 
C STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN 
C INTO THE SUBROUTINE BUT ARE 'COMMENTED OUT' . 

C 

C 

C************************* MAIN PROGRAM ****************************** 



character infile* 12, ylabl*14, yscal*3, mode*l, dsorce* 1 

character title* 16 

complex xn(0:255) , xk(0:255) 

real Sxx(0:255), nn, kk 

C PROMPT USER FOR MODE: BATCH OR TEST. 

write (*,1115) 
read (*,1117) mode 

if ( (mode.eq. 'y ' ) .or. (mode.eq. 'Y' ) ) then 
mode = ' Y ' 
write (*,1118) 
read (*,1119) infile 
else 

infile = 'FRDGRM.IN' 
endif 

C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' FRDGRM. OUT ' ) 
open (unit=3 , f ile= ' PRDGEM.DAT ' ) 

C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 

read (1,1000) N, dsorce, yscal 
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if ( (N.lt.l) .or. (N.gt.256) ) then 
write (*,1010) N 

stop 'The allowed values for N are: 1 <= N <= 256' 

endif 

if ( (dsorce.eq. ' f ' ) .or. (dsorce.eq. 'F' ) ) then 
dsorce = 'F' 

elseif ( (dsorce.eq. 's') .or. (dsorce.eq. 'S') ) then 
dsorce = 'S' 
else 

write (*, 1009) dsorce 

stop 'The allowed values for dsorce are: ' 'S' ' or ' ' F ' ' . ' 
endif 

if ( (yscal . eq. ' std ' ) . or. (yscal . eq. ' STD ' ) ) then 
title = ' Periodogram ' 
yscal = 'STD' 
ylabl = ' Sxx(k) ' 

elseif ( (yscal. eq. 'log' ) .or. (yscal. eq. 'LOG' ) ) then 
title = ' log Periodogram' 
yscal = 'IDG' 
ylabl = 'Sxx(k) (dB) ' 
else 

write (*,1128) yscal 

stop 'Error, yscal must be the string ' 'STD' ' or ' 'IDG' ' . ' 
endif 

C FOR dsorce = 'F' READ THE INPUT SEQUENCE FROM THE INPUT FILE. 
C FOR dsorce = 'S' CALL sample TO GENERATE THE INPUT SEQUENCE. 
C THE INPUT SEQUENCE IS STORED IN THE ARRAY xn() . 

if (dsorce.eq. 'F' ) then 
read (1,1001) (xn(i) , i=0,N-l) 
else 

call sample (xn,N) 
endif 

C DEFINE CONSTANTS 

k = 8 
en = N 

pi = 4.0*atan(1.0) 
numplts = 3 

C FOR TEST MODE ECHO INPUT DATA ONTO MONITOR (UNIT = *) . 

if (mode.eq. 'Y' ) then 
write ( * , 1016) infile 
if (N. It. 8) k = N 
write (*, 1017) N, dsorce, yscal 
write (*,1012) k 
write (*,1015) 
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4 



do 4 i=0, k-1 

write(*,1020) i, xn(i) 
continue 
endif 

C WRITE THE INPUT SEQUENCE INTO FILE: PRDGRM.DAT. 

write (3 ,2000) numplts 
write (3, 2001) N 

write (3,*) 'INPUT SEQUENCE (REAL)' 
write (3,*) 'SAMPLE# (n) ' 
write(3, *) 'REAL (xn) ' 
do 55 i=0, N-l 
nn = i 

write(3,2010) nn, real(xn(i)) 

55 continue 

write (3, 2001) N 

write (3,*) 'INPUT SEQUENCE (IMAGINARY)' 
write (3,*) 'SAMPLE# (n) ' 
write(3, *) 'IMAGINARY (xn) ' 
do 56 i=0, N-l 
nn = i 

write (3, 2010) nn, aimag(xn(i) ) 

56 continue 

C WRITE INPUT DATA INTO OUTPUT FILE: PRDGRM.OUT. 

write (2, 1016) infile 

write (2, 1017) N, dsorce, yscal 

write (2, 1014) 

write (2, 1015) 

do 59 i=0, N-l 

write(2, 1020) i, xn(i) 

59 continue 

C CALL dft TO COMPUTE THE DISCRETE FOURIER TRANSFORM OF THE 
C INPUT SEQUENCE. 

call dft(N,xn,xk) 

C THE PERIODOGRAM COMPUTATION RESULTS FROM THE EQUATION: 

C Sxx(k) = xk(k) *conjg(xk(k) )/N. THE SEQUENCE Sxx(k) IS 
C CONVERTED TO DECIBELS IF yscal = 'LOG'. 



do 60 k=0, N-l 

Sxx(k) = xk(k) *conjg(xk(k) )/en 
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if (yscal.eq. 'LOG' ) then 
if (Sxx(k) .gt.l.0e-10) then 
Sxx(k) = 10.0*logi0(Sxx(k) ) 
else 

Sxx(k) = -100.0 
endif 
endif 

60 continue 

C WRITE RESULTS INTO OUTPUT FILE: FRDGRM.DAT. 

write (3, 2001) N 
write (3, 2002) title 
write(3,*) 1 k ' 
write (3,*) ylabl 
do 57 k=0, N-l 
kk = k 

, /rice (3, 2010) kk, Sxx(k) 

57 continue 

C WRITE RESULTS INTO CUTHJT FILE: PRDGRM.OUT. 

write(2,1025) ylabl 
do 5 k=0, N-l 
write(2,1030) k, Sxx(k) 

5 continue 

write (*, 1019) 

999 close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.0) then 
write(*, 1116) infile, ierr 
endif 

C ******** INHJT FORMAT ******** 

1000 format (i3, til, al,t21,a3) 

1001 format (2f 10.0) 

c ******************************** 

1009 format ( lx, 'dsorce = ' ,al,2x, 'Error, illegal value for dsorce. ') 

1010 format ( lx, 'N = ' ,i3) 

1012 0forrnat(/,' THE FIRST ' ,il, ' VALUES OF xn() ARE LISTED BELOW.', 
V, ' VERIFY THAT THE DATA IS CORRECT. ' ,/) 

1014 format (//,t22, 'INPUT DATA',/,t25, *xn() ' ,//) 

1015 format (t8, 'n',tl5, 'REAL' ,t28, 'IMAGINARY') 

1016 format (//////, ' INPUT DATA SOURCEFILE: ',al2) 

1017 0 format ( ' VALUE OF N = ',i3,5x, 'dsorce = ' ,al,5x, 'MAGNITUDE ', 

1 'OPTION = ' ,a3) 
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1019 0format(//, ' TABULAR OUTPUT DATA IS STORED IN FILE: PRDGRM. OUT. ' , 
1/, ' PLOTTING DATA IS STORED IN FILE: PRDGRM.DAT') 

1020 fonnat(4x / i4 / 2(4x,el0.4) ) 

1025 format (/// , tl9 , 'OUTPUT DATA' ,//,t7, 'k' ,tl2,all) 

1030 format (t5 , i3 , 4x, elO . 4 ) 

1115 0 format (lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : ',\,) 

1116 Oformat(///, lx, 'ERROR OPENING INPUT FILE: ' ,al2,/, lx, 'PROGRAM' , 

1' TERMINATED. ' ,//,lx, 'ERROR CODE: ' ,i4, /////) 

1117 format (al) 

1118 Oformat (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 

1' BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: PRDGRM. TST ' , 

3' TYPE: PRDGRM. TST <CR>' ,/, ' FILENAME: ',\,) 

1119 format (al2) 

1128 f ormat (//////, t2, 'The value of yscal is: ',a3,'.') 

2000 format (il) 

2001 format (i3) 

2002 format (al6) 

2003 format (a8) 

2010 format(el2.6,2x,el2.6) 

end 



C SUBROUTINE: dft 



C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 

C xn() , COMPUTES THE DISCRETE FOURIER TRANSFORM (DFT) 

C OF THE ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 

C COMPLEX ARRAY xk() . 



subroutine dft(N,xn,xk) 

complex xn(0:N-l) , xk(0:N-l) , w, wm 

pi = 4.0*atan(1.0) 
en = N 

if(N-l.eq.O) then 
xk(0) = xn(0) 
else 

alpha = 2.0*pi/en 
w = cmplx( cos (alpha) ,-sin(alpha) ) 
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do 100 k=0, N-l 
wm = w**k 
xk(k) = xn(N-l) 

do 50 l=N-2 , 0, -1 
xk(k) = xk(k)*wm + xn(l) 
50 continue 

100 continue 
endif 

return 

end 



C SUBROUTINE: sample 

C 

C 

C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 

C OF A CONTINUOUS FUNCTION. THE SAMPLES ARE RETURNED 

C TO THE MAIN PROGRAM IN THE ARRAY xn() . 



subroutine sample (xn,N) 
complex xn(0:N-l) 

pi = 4.0*atan(1.0) 
en = N 

C *********************************************************************** 

C DEVELOP THE SAMPLING ALGORITHM IN THIS SPACE. THE STATEMENTS 
C TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND MAY USE 
C FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN(), COS() , ABS()... 

C AN EXAMPLE IS SHOWN BELOW. THE INPUT DATA MUST BE STORED IN THE 
C ARRAY xn() . IF THIS SUBROUTINE IS USED, 'PRDGRM.FOR' MUST BE 
C COMPILED AGAIN BEFORE EXECUTION. 

C 

C *** EXAMPLE *** 

C 

C do 3 i=0, N-l 
C xn(i) = cmplx(i,0.0) 

C 3 continue 

£*********************************************************** ************ 



return 

end 
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VERSION: 2/03/88 



C 

C 

C 

C PURPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



CONCORDT . FOR 



THIS PROGRAM PERFORMS ANY ONE OF THE FOLLOWING FOUR 
COMPUTATIONS GIVEN TWO COMPLEX ARRAYS OF INPUT DATA: 
LINEAR CONVOLUTION (LOON) ; LINEAR CORRELATION (IGOR) ; 
CIRCULAR CONVOLUTION (CCON) ; OR CIRCULAR CORRELATION 
(CCOR) . CONVOLUTION IS PERFORMED BY COMPUTING THE DFT 
OF EACH ARRAY, MULTIPLYING THE DFTs TOGETHER AND THEN 
TAKING THE INVERSE DFT OF THE RESULTING ARRAY. 
CORRELATION IS PERFORMED IN THE SAME MANNER EXCEPT 
THAT THE CONJUGATE OF THE DFT OF ARRAY #1 IS MULTIPLIED 
BY THE DFT OF ARRAY #2. THE RESULT OF THIS CONFUTATION, 
GIVEN THE INPUT SEQUENCES xl AND X2, IS THE CORRELATION 
SEQUENCE Rxlx2 . THE PROGRAM CONSISTS OF A MAIN 
PROGRAM AND FIVE SUBROUTINES. THE SUBROUTINE zeropad 
EXTENDS THE INFUT ARRAY PASSED TO IT BY ADDING AN 
y^PROPRIATE NUMBER OF ZEROES TO THE ORIGINAL INPUT DATA 
TO CREATE AN ARRAY OF SUITABLE LENGTH FOR THE LINEAR 
CONVOLUTION/ CORRELATION ALGORITHMS. THE SUBROUTINE 
dft COMPUTES THE DISCRETE FOURIER TRANSFORM OF AN 
ARRAY. THE SUBROUTINE invdft COMPUTES THE INVERSE 
DISCRETE FOURIER TRANSFORM OF AN ARRAY. THE TWO 
SUBROUTINES sampll AND sampl2 ALLOW THE USER TO 
GENERATE EITHER OF THE INPUT ARRAYS BY WRITING THE 
APPROPRIATE EQUATIONS. IF THE USER CHOOSES TO 
GENERATE THE INPUT DATA BY USING EITHER OF THE sampl 
SUBROUTINE (S) , THE EQUATIONS MUST BE WRITTEN INTO THE 
SUBROUTINE (S) USING STANDARD FORTRAN 77 EXECUTABLE 
STATEMENTS AND THE VALUES GENERATED MUST BE STORED 
IN THE ARRAYS xnl() AND xn2() . THE USER HAS THE 
OPTION OF SELECTING ONE OF TWO OPERATING MODES: BATCH 
OR TEST. IN BATCH MODE THE AMOUNT OF INTERACTION 
WITH THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE 
INPUT PARAMETERS HAVE BEEN STORED IN THE INPUT FILE 
' CONCORDT . IN 1 . IN TEST MODE THE USER IS PROMPTED 
FOR THE NAME OF THE INPUT FILE AND HAS THE OPTION 
TO PERFORM A TRIAL RUN USING THE DATA STORED IN 
THE FILE ' CONCORDT. TST' . IT IS RECOMMENDED THAT FIRST- 
TIME USERS SELECT THE TEST MODE AND PERFORM A TRIAL 
RUN WITH THE PRESTORED DATA. THE TEST MODE ECHOES 
PORTIONS OF THE INPUT DATA ONTO THE MONITOR TO ALLOW 
VERIFICATION OF ITS ACCURACY. THE OUTPUT OF THE 
PROGRAM 'CONCORDT. FOR' IS STORED IN THE ARRAY xn3() . 

THE OUTPUT IS STORED IN TABULAR FORM IN THE FILE 
'CONCORDT. OUT' AND IN A FORM SUITABLE FOR PLOTTING 
IN THE FILE ' CONCORDT. DAT ' . 



q***** ************** ********** INPUT ********************************* 



C 
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c 

C THIS PROGRAM ASSUMES THAT THERE ARE TWO SEQUENCES OF INPUT DATA 
C STORED IN THE ARRAYS xnl() AND xn2() OF LENGTH 'Nl' AND 'N2', 

C RESPECTIVELY. THE ARRAYS ARE ASSUMED TO BE COMPLEX. IF THE 
C ARRAYS CONTAIN 'REAL' VALUES ONLY, THEN THE IMAGINARY PART IS 
C STORED AS O.O. THE INHJT SEQUENCES ARE ASSUMED TO BE DEFINED 
C IN THE INTERVALS 0 TO Nl-1 AND 0 TO N2-1, RESPECTIVELY. 

C THIS PROGRAM ALLOWS THE USER THE OPTION OF EITHER READING THE 
C THE INHJT ARRAYS FROM A DATA FILE OR OF GENERATING THE INPUT 
C VALUES FROM AN ITERATIVE EQUATION IN THE sairpl SUEROUTTNE(S) . 

C THE PARAMETERS DESCRIBED BEIOW ALLOW THE USER TO SELECT THE 
C DESIRED OPTIONS AND THESE PARAMETERS MUST BE STORED IN THE INHJT 
C FILE 'CONCORDE. IN' . ALL OF THE READ STATEMENTS USED BY THIS 
C PROGRAM REQUIRE FORMATTED INHJT. PARTICUIAR ATTENTION SHOULD BE 
C PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
C DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 

C 

C 



c 


NAME 


TYPE 


RANGE (ARRAYS) 




RESTRICTIONS 


c 


Nl 


INTEGER 






1 <= Nl <= 128 


c 


dsrcel 


CHARACTER 






'F' OR 'S' 


c 


N2 


INTEGER 






1 <= N2 <= 128 


c 


dsrce2 


CHARACTER 






'F' OR 'S' 


c 


option 


CHARACTER 




ONE 


OF THE FOLLOWING: 


c 








'LOON' 


•LOOR' 'CCON' 'CCOR' 


c 


xnl() 


COMPLEX 


0,1, .. . ,N1-1 




1 <= Nl <= 128 


c 

p 


xn2 () 


COMPLEX 


0,1, .. . ,N2-1 




1 <= N2 <= 128 


c 


WHERE: 











C 

C Nl = AN INTEGER THAT SPECIFIES THE NUMBER OF POINTS OF INHJT 
C DATA TO BE STORED IN THE ARRAY xnl() . 

C 

C dsrcel = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 

C INHJT ARRAY xnl() IS TO BE READ FROM A FILE (F) OR TO 

C BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 

C THE SUBROUTINE sanpll. 

C 

C N2 = AN INTEGER THAT SPECIFIES THE NUMBER OF POINTS OF INHJT 
C DATA TO BE STORED IN THE ARRAY xn2 ( ) . 

C 

C dsrce2 = A CHARACTER VALUE OF ’ F ' OR 'S' DENOTING WHETHER THE 

C INHJT ARRAY xn2() IS TO BE READ FROM A FILE (F) OR TO 

C BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 

C THE SUBROUTINE sampl2. 

C 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



option = A CHARACTER STRING OF FOUR LETTERS DENOTING THE 

COMPUTATION DESIRED. 'LOON' = LINEAR CONVOLUTION 

'LOOR' = LINEAR CORRELATION 
'COON' = CIRCULAR CONVOLUTION 
'CCOR' = CIRCULAR CORRELATION 

xnl() = THE FIRST ARRAY OF COMPLEX INPUT DATA. IF dsrcel = ’ F ' 
IS SPECIFIED THE USER MUST SUPPLY THE N1 INPUT 
VALUES IN THE FILE. IF dsrcel = 'S' THE USER HAS 
ELECTED TO GENERATE THE INPUT DATA BY PROVIDING 
THE APPROPRIATE FORTRAN STATEMENTS IN THE SPACE 
ALLOCATED IN SUBROUTINE sarnpll. IF THIS METHOD 
OF DATA GENERATION IS ELECTED THE PROGRAM MUST BE 
RECOMPILED BEFORE EXECUTION. 

xn2() = THE SECOND ARRAY OF COMPLEX INPUT DATA. IF dsrce2 = 
'S' IS SPECIFIED THE USER HAS ELECTED TO PROVIDE THE 
APPROPRIATE FORTRAN STATEMENTS IN THE SPACE ALLOCATED 
IN SUBROUTINE sampl2. IF THIS METHOD OF DATA 
GENERATION IS ELECTED THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. IF dsrce2 = 'F' THEN THE USER MUST 
SUPPLY THE N2 INPUT VALUES IN THE FILE. 

NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********. 
THE FORM OF THE INPUT DATA FILE IS: 



LINE# 



ENTRIES 



FORMAT 



1 

2 

NOTE 1 
NOTE 2 



N1 , dsrcel 
N2 , dsrce2 , option 
xnl() 
xn2() 



i3,tll,al 
i3,tll,al,t21,a4 
2fl0. 0 
2fl0. 0 



NOTES 1. IF dsrcel = ' F ' THEN THE LINES 3...N1+2 MUST CONTAIN 

THE VALUES TO BE READ INTO THE ARRAY xnl() . EACH VALUE 
IS READ AS A COMPLEX NUMBER, I.E., REAL IMAGINARY. 

IF dsrcel = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALUES FOR xnl() IN THE SUBROUTINE sarnpll. THE USER 
MUST THEN PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sarnpll TO GENERATE xnl ( ) . 



2. IF dsrce2 = ' F ' THEN THE NEXT N2 LINES CONTAIN THE 

VALUES TO BE READ INTO THE ARRAY xn2 () . EACH VALUE IS 
READ AS A COMPLEX NUMBER, I.E., REAL IMAGINARY. IF 
dsrce2 = 'S' THEN THE USER HAS ELECTED TO GENERATE THE 
VALUES FOR xn2() IN THE SUBROUTINE sampl2. THE USER 
MUST THEN PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampl2 TO GENERATE THE ARRAY xn2 ( ) . 
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c 

c 

c 

c 

c 

c 

c 

c 



3. THE FORMAT 2fl0.0 USED FOR INRJT DATA PERMITS THE 
DECIMAL POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE 
USED (E.G., 3146.2 = 3.1462E+03). 

4. IF option = ' CCON' OR 'CCOR' NX MUST BE EQUAL TO N2. 



C ***************************** OUTPUT ******************************* 



C 

c 

C THE INRJT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
C FORM IN THE FILE 'CONCORDT.OUT' . ADDITIONALLY, THE INRJT SEQUENCES 
C AND THE OUTPUT SEQUENCE ARE WRITTEN INTO THE FILE ' CONCORDT . DAT ' 

C TO FACILITATE PLOTTING BY A SEPARATE, USER SUPPLIED PROGRAM. THE 
C FORMAT OF THE DATA IN ' CONCORDT . DAT ' IS: el2.6, 2x, el2.6. THE 

C FIRST ENTRY CORRESPONDS TO THE ORDINATE VALUE AND THE SECOND ENTRY, 

C THE ABSCISSA VALUE. ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 
C 'CONCORDT. DAT' TO ALLOW FOR CONTROL AND LABELING OF EACH PLOT. 

C 

C 

Q***************************** EXAMPLE ******************************** 

c 

c 

C THE INRJT PARAMETERS BELOW ARE STORED IN THE INRJT FILE 
C ' CONCORDT. TST ' . THE PROGRAM READS THE FIRST 4 VALUES INTO xnl() 

C (dsrcel = 'F' , N1 = 4) , AND READS THE NEXT 5 VALUES INTO xn2() 

C (dsrce2 = 'F' , N2 = 5) . THE GOAL IS TO CALCULATE THE LINEAR 
C CONVOLUTION OF THE TWO INRJT ARRAYS. 

C 
C 

C 004 
C 005 
C 1.0 
C 2.0 
C 3.0 
C 4.0 
C 5.0 
C 4.0 
C 3.0 
C 2.0 
C 1.0 
C 
C 

C THE RESULTING OUTPUT DATA FILE 'CONCORDT.OUT' IS: 

C 

C INRJT DATA SOURCEFILE: CONCORDT. TST 
C N1 = 4 dsrcel = F 

C N2 = 5 dsrce2 = F 

C option = LOON 



F 

F ICON 

0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
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c 

c 

C INHJT DATA 

C 

C xnl() 



c 


n 


REAL 


IMAGINARY 


c 


0 


. 100000E+01 


. 000000E+00 


c 


1 


.200000E+01 


. 000000E+00 


c 


2 


.300000E+01 


. OOOOOOE+OO 


c 


3 


. 400000E+01 


. 000000E+00 


c 




xn2 () 


c 


n 


REAL 


IMAGINARY 


c 


0 


.500000E+01 


. 000000E+00 


c 


1 


•400000E+01 


. 000000E+00 


c 


2 


. 300000E+01 


. 000000E+00 


c 


3 


.200000E+01 


. 000000E+00 


c 

c 


4 


. 100000E+01 


. 000000E+00 


c 

c 




OUTPUT DATA 


c 

c 




xn3 () 


c 


n 


REAL 


IMAGINARY 


c 


0 


. 500000E+01 


•953674E-06 


c 


1 


. 14 0000E+02 


303457E-05 


c 


2 


.260000E+02 


-.756009E-05 


c 


3 


•400000E+02 


404610E-05 


c 


4 


. 300000E+02 


•217716E-05 


c 


5 


. 200000E+02 


.762858E-05 


c 


6 


. 110000E+02 


•892130E-05 


c 


7 


•400001E+01 


. 47204 5E-05 



C 

C 

C FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCES xnl() AND xn 2() 

C COULD HAVE BEEN GENERATED BY SPECIFYING dsrce# = 'S' AND WRITING 
C THE APPROPRIATE FORTRAN STATEMENTS INTO THE sampl# SUBROUTINES. 

C THE STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN 
C INTO THE RESPECTIVE SUBROUTINES BUT ARE 'COMMENTED CUT' . 

C 

C 

C**************************** MAIN PROGRAM *************************** 



character infile*12, opt ion* 4 , mode*l, dsrcel*l, dsrce2*l 
character title*20 

complex xnl (0:255) , xn2(0:255), xn3(0:255) 
complex xkl (0:255) , xk2(0:255), xk3(0:255) 
real nn 
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C PROMPT USER FOR MODE: BATCH OR TEST. 



write (*,1115) 
read (*,1117) mode 

if ( (mode.eq. 'y' ) .or. (mode.eq. 'Y' ) ) then 
mode = ' Y' 
write (*,1118) 
read (*,1119) infile 
else 

infile = 'CONCORDT.IN' 
endif 

C UNIT=1 DEFINED AS INHJT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 

open (unit=l, file=infile,status=' old' , iostat=ierr,err^=999) 
open (unit=2 , file= ' OONCORDT . OUT ' ) 
open (unit=3 , f ile= ' CONCORDT. DAT ' ) 

C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 

read (1,1000) Nl, dsrcel 

read (1,1001) N2, dsrce2, option 

if ( (dsrcel. eq. * f * ) .or. (dsrcel. eq. 'F') ) then 
dsrcel = 'F' 

elseif ( (dsrcel. eq. 's') .or. (dsrcel. eq. 'S') ) then 
dsrcel = 'S' 
else 

write (*,1009) 'dsrcel = ', dsrcel 

stop 'The allowed values for dsrcel are: ' * F " or ''S''.' 
endif 

if ( (dsrce2.eq. ' f ' ) .or. (dsrce2.eq. 'F')) then 
dsrce2 = 'F' 

elseif ( (dsrce2.eq. 's') .or. (dsrce2.eq. 'S') ) then 
dsrce2 = 'S' 
else 

write (*,1009) 'dsrce2 = ', dsrce2 

stop 'The allowed values for dsrce2 are: "F" or "S''.' 
endif 

if ( (option. eq. 'ccon') .or. (option. eq. 'CCON') ) then 
option = 'CCON' 

title = 'Circular Convolution' 
elseif ( (option. eq. 'ccor') .or. (option. eq. 'CCOR') ) then 
option = 'CCOR' 

title = 'Circular Correlation' 
elseif ( (option. eq. 'Icon') .or. (option. eq. 'LCON') ) then 
option = 'ICON' 
title = 'Linear Convolution' 
elseif ( (option. eq. 'lcor') .or. (option. eq. 'LCOR' ) ) then 
option = 'LCOR' 
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title = 'Linear Correlation' 
else 

write ( * , 1011) option 

stop "The allowed values for option are: CCON, CCOR, LC0N,LC0R. ' 
endif 

if ( (Nl.lt. 1) .or. (Nl.gt.128) ) then 
write (*,1010) 'N1 = \ N1 

stop 'The allowed values for N1 are: 1 <= N1 <= 128' 

endif 

if ((N2.lt. 1) .or. (N2.gt.128) ) then 
write (*,1010) 'N2 = ', N2 

stop 'The allowed values for N2 are: 1 <= N2 <= 128' 

endif 

if ( (option. eq. 'CCON' ) .or. (option. eq. 'CCOR' ) ) then 
if (Nl.ne.N2) then 

write (*,1008) option, Nl, N2 

stop 'For option = ' 'CCOR' ' or ' 'CCON' ' Nl must equal N2. ' 
endif 
N3 = Nl 
endif 

C DEFINE CONSTANTS, 
k = 8 

numplts = 6 

C FOR dsrce# = 'F' READ INHJT SEQUENCE (S) FROM THE DATA FILE. 

C FOR dsrce# = 'S' CALL sairpl# TO GENERATE THE INHJT SEQUENCE(S) . 
C THE INPUT SEQUENCES ARE STORED IN THE ARRAYS xnl() , xn2() . 

if (dsrcel.eq. 'F' ) then 
read(l, 1002) (xnl(i) , i=0,Nl-l) 
else 

call sampll(xnl,Nl) 
endif 

if (dsrce2 . eq. ' F ' ) then 
read(l, 1002) (xn2 (i) , i=0,N2-l) 
else 

call sainpl2 (xn2,N2) 
endif 



C FOR TEST MODE ECHO INHJT DATA ONTO MONITOR (UNIT = *) . 

if (mode.eq. 'Y' ) then 
write (*,1016) infile 

if ((Nl.lt. 8) .or. (N2.lt. 8) ) k = min(Nl,N2) 
write(*, 1017) 'Nl - ', Nl, ' dsrcel = ', dsrce 1 
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write (*, 1017 ) 'N2 = 1 , N2, 'dsrce2 = dsrce2 

write (*,1018) option 

write (*,1012) k 

write (*,1013) 

do 3 i=0, k-1 

write(*,1020) i, xnl(i), xn2(i) 

3 continue 

endif 

C WRITE THE INRJT SEQUENCES INTO FILE: C0NC0RDT.DAT. 

write (3,2000) numplts 
write (3, 2001) N1 

write(3,*) 'INRJT SEQUENCE xnl (REAL)' 
write (3,*) 'SAMPLE # (n) ' 
write (3,*) 'REAL xnl() ' 
do 54 i=0, Nl-1 
nn = i 

write(3,2010) nn, real (xnl (i)) 

54 continue 

write (3, 2001) N1 

write (3,*) 'INRJT SEQUENCE xnl (IMAGINARY) ' 
write(3,*) 'SAMPLE # (n) ' 
write (3,*) 'IMAG xnl() ' 
do 55 i=0, Nl-1 
nn = i 

write (3, 2010) nn, airaag(xnl(i) ) 

55 continue 

write (3, 2001) N2 

write(3, *) 'INRJT SEQUENCE xn2 (REAL)' 
write(3, *) 'SAMPLE # (n) ' 
write (3,*) 'REAL xn2 () ' 
do 56 i=0, N2-1 
nn = i 

write (3, 2010) nn, real(xn2(i)) 

56 continue 

write (3, 2001) N2 

write (3,*) ' INRJT SEQUENCE xn2 (IMAGINARY)' 
write (3,*) 'SAMPLE # (n) ' 
write (3, *) 'IMAG xn2() ' 
do 57 i=0, N2-1 
nn = i 

write (3, 2010) nn, aimag(xn2 (i) ) 

57 continue 

C WRITE INRJT DATA INTO FILE: CONCORDT.OUT. 
write (2, 1016) infile 

write (2, 1017) 'N1 = ', Nl, 'dsrcel = ', dsrcel 
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write(2, 1017) 'N2 = 1 , N2, 'dsrce2 = dsrce2 
write (2,1018) option 
write (2, 1014) 'INHJT DATA' 
write(2, 1015) 'xnl() ' 
do 60 i=0, Nl-1 
write(2, 1026) i, xnl(i) 

60 continue 

write (2, 1015) 'xn2()' 
do 61 i=0, N2-1 
write(2, 1026) i, xn2(i) 

61 continue 

C FOR LINEAR CONVOLUTION OR LINEAR CORRELATION BOTH INHJT ARRAYS 
C ARE ZERO-PADDED TO LENGTH N3 = N1 + N2 - 1. 

if ( (option. eq. 'LCON' ) .or. (option. eq. 'DOOR' ) ) then 
N3 = N1 + N2 - 1 
call zeropad(xnl,Nl,N3) 
call zeropad(xn2,N2,N3) 
endif 

C C0MHJTE THE DFT OF BOTH INHJT SEQUENCES. 

call dft(N3,xnl,xkl) 
call dft (N3 , xn2 , xk2 ) 

C PERFORM CONVOLUTION COMHJTATION. 

if ( (option. eq. ' LCON ' ) . or . (option. eq. ' CCON 1 ) ) then 
do 22 i=0, N3-1 

xk3(i) = xkl(i) *xk2(i) 

22 continue 

call invdft(N3,xk3,xn3) 
endif 

C PERFORM CORRELATION CQMHJTATION. 

if ( (option. eq. 'LCOR' ) .or. (option. eq. 'CCOR')) then 
do 23 i=0, N3-1 

xkl(i) = conjg(xkl(i) ) 
xk3(i) = xkl(i)*xk2(i) 

23 continue 

call invdft (N3,xk3,xn3) 
endif 

C WRITE RESULTS INTO FILE: C0NC0RET.DAT. 

write(3,2001) N3 
write (3, 2003) title 
write(3,*) 'SAMPLE # (n) ' 
write (3,*) 'REAL xn3() ' 
do 58 i=0, N3-1 
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nn = i 

write(3,2010) nn, real(xn3(i)) 
continue 

write (3, 2001) N3 
write (3, 2003) title 
write (3,*) 'SAMPLE # (n) ' 
write(3, *) 'IMAG xn3() ' 
do 59 i=0, N3-1 
nn = i 

write (3, 2010) nn, aimag(xn3 (i) ) 

59 continue 

C WRITE RESULTS INTO FILE: CONCORDT.OUT. 

write (2, 1014) '0UTR7T DATA' 
write (2, 1015) 'xn3()' 
do 62 i=0, N3-1 
write (2, 1026) i, xn3(i) 

62 continue 

write (*,1019) 

999 close (unit=l) 
close (un.it=2) 
close (unit=3) 

if (ierr.gt.0) then 
write (*, 1116) infile, ierr 
endif 

C ******** INHJT FORMAT ******** 

1000 format ( i3 , til , al) 

1001 format (i3, til, al,t21,a4) 

1002 format (2f 10.0) 

C ******************************** 

1008 OformatC option = ',a4,', N1 = 1 , i4 , ' , N2 = ',i4,', Error,', 
1 ' N1 is not equal to N2 . ' ) 

1009 format( lx, a9,al, ' Error, value not allowed. ' ) 

1010 f ormat ( lx, a5, i4,2x, 'Error, value not allowed.') 

1011 format (lx, 'option = ' ,a4,2x, 'Error, illegal value for option.') 

1012 Of ormat (/ , t2 , ' THE FIRST', i3, ' VALUES OF INRJT DATA ARE LISTED ', 
1/, ' BELOW, VERIFY THAT THE DATA IS CORRECT. ' ,/) 

1013 0format(t21, 'xnl() ' ,t53, 'xn2Q ' ,/,t4, 'n' ,tll, 'REAL' ,t27, 

1 ' IMAGINARY ' ,t43, 'REAL' ,t59, 'IMAGINARY') 

1014 format(//, t20, all,/) 

1015 format (/ , t21, a7 ,/ , t6 , 'n' ,tl3, 'REAL' ,t29, 'IMAGINARY') 

1016 format (///,' INRJT DATA SOURCEFILE: ' ,al2) 

1017 format (t2,a5,i3,5x,a9,al) 

1018 f ormat (t2, 'option = ',a4) 
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1019 0format(// ; ' TABULAR OUTPUT DATA IS STORED IN FILE: CONCORDT.OUT. ' ; 
1/, ' PLOTTING DATA IS STORED IN FILE: CONCORD! . DAT . ') 

1020 format(t4,il,4(4x,el2.6) ) 

1026 format(t4,i3,2(4x,el2.6)) 

1115 0 format (lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : ' 

1116 Ofonnat (/// , lx, 'ERROR OPENING INPUT FILE: ' ,al2,/,lx, 'PROGRAM' , 

1' TERMINATED. ' ,//,lX, 'ERROR CODE: ' ,i4, /////) 

1117 format (al) 

1118 Oformat (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 

1' BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: CONCORDT.TST' , 

3' TYPE: CONCORDT.TST <CR>' ,/, ' FILENAME: \\,) 

1119 format (al2) 

2000 format (il) 

2001 format (i3) 

2003 format (a20) 

2010 format(el2.6,2x,el2.6) 

end 



C SUBROUTINE: zeropad 



C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY xn() 

C OF LENGTH N AND ZERO PADS THE ARRAY TO LENGTH N3. 



subroutine zeropad (xn,N,N3) 
complex xn(0:N3-l) 

do 33 i=N, N3-1 
xn(i) = cmplx(0. 0,0.0) 

33 continue 

return 

end 



C 



SUBROUTINE: invdft 



C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 

C xin() AND COMPUTES THE INVERSE DFT OF THE ARRAY. THE 

C OUTPUT IS STORED IN THE COMPLEX ARRAY xout() . 



subroutine invdft (N,xin,xout) 
complex xin(0:N-l) , xout(0:N-l) 

en = N 
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C COMPUTE THE COMPLEX CONJUGATE OF THE INPUT DATA. 

do 70 i=0, N-l 
xin(i) = conjg(xin(i) ) 

70 continue 

C COMPUTE THE DISCRETE FOURIER TRANSFORM OF THE ARRAY, 
call dft(N,xin,xout) 

C COMHJTE THE COMPLEX CONJUGATE OF THE RESULTING ARRAY. 

do 80 i=0, N-l 
xout(i) = conjg(xout(i) )/en 
80 continue 

return 

end 



C 



SUBROUTINE: dft 



PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 

xin() , COMPUTES THE DISCRETE FOURIER TRANSFORM (DFT) 

OF THE ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 
COMPLEX ARRAY XOUtQ . 



subroutine dft(N,xin,xout) 

complex xin(0:N-l) , xout(0:N-l), w, wm 

pi = 4.0*atan(1.0) 
en = N 

if(N-l.eq.O) then 
xout(O) = xin(O) 
else 

alpha = 2.0*pi/en 
w = anplx (cos (alpha) , -sin (alpha) ) 
do 100 k=0, N-l 
wm = w**k 
xout(k) = xin(N-l) 
do 50 l=N-2 , 0, -1 

xout ( k) = xout ( k) *wm+xin ( 1 ) 

50 continue 

100 continue 
endif 

return 

end 
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c 



SUBROUTINE: saitpll 



C 

C 

C 

C 

C 



C PURPOSE 



THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 
xnl() . IF dsrcel = 'S' THEN THE MAIN PROGRAM WILL CALL 
THIS SUBROUTINE TO GENERATE THE VALUES FOR xnl() . 

IF dsrcel DOES NOT EQUAL 'S' THEN THIS SUBROUTINE WILL 
NOT BE CALLED BY THE MAIN PROGRAM. 



subroutine saitpll (xnl,Nl) 
complex xnl(0:Nl-l) 

pi = 4.0*atan(1.0) 
enl = N1 

C DEVELOP THE SAMPLING ALGORITHM FOR xnl() IN THIS SPACE. THE 
C STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
C MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN() ,COS() . . . 

C AN EXAMPLE OF AN ALGORITHM GENERATING VALUES FOR xnl() IS SHOWN. 

C 

C *** EXAMPLE *** 

C 

C do 6 i-0, Nl-1 
C xnl(i) = crrplx(i+l. 0,0.0) 

C 6 continue 

C*** ******************************************************************** 



return 

end 



C 



SUBROUTINE: sampl2 



C RJRPOSE 



THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 
OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 
xn2() . IF dsrce2 = 'S' THEN THE MAIN PROGRAM WILL CALL 
THIS SUBROUTINE TO GENERATE THE VALUES FOR xn2 () . 

IF dsrce2 DOES NOT EQUAL 'S' THEN THIS SUBROUTINE WILL 
NOT BE CALLED BY THE MAIN PROGRAM. 



C 

C 

C 

C 

C 
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subroutine sanpl2 (xn2,N2) 
complex xn2(0:N2-l) 

pi = 4.0*atan(1.0) 
en2 = N2 



C DEVELOP THE SAMPLING ALGORITHM FOR xn2() IN THIS SPACE. THE 
C STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
C MAY USE FORTRAN 77 LNTRINSIC FUNCTIONS SUCH AS: SIN() ,COS() . . . 

C AN EXAMPLE OF AN ALGORITHM GENERATING VALUES FOR xn2() IS SHOWN. 

C 

C *** EXAMPLE *** 

C 

C do 7 i=0, N2-1 
C xn2(i) = crrplx(5.0-i,0.0) 

C 7 continue 

C* ********************************************************************** 



return 

end 
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FFT. FOR 



VERSION: 2/03/88 



C 

C 

C 

C PURPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



THIS PROGRAM COMPUTES THE DISCRETE FOURIER TRANSFORM 
OR THE INVERSE DISCRETE FOURIER TRANSFORM OF A SET OF 
COMPLEX INPUT DATA USING A RADIX-2 , DECIMATION IN TIME 
(DIT) FAST FOURIER TRANSFORM (FFT) ALGORITHM. THE 
PROGRAM CONSISTS OF A MAIN PROGRAM AND POUR SUB- 
ROUTINES. THE SUBROUTINE reversal REARRANGES THE 
INPUT INTO 'BIT-REVERSED' ORDER; THE SUBROUTINE fft 
COMPUTES THE FAST FOURIER TRANSFORM; THE SUBROUTINE 
invfft COMPUTES THE INVERSE FAST FOURIER TRANSFORM; AND 
THE SUBROUTINE sample ALLOWS THE USER TO GENERATE THE 
THE INPUT DATA BY WRITING THE APPROPRIATE EQUATIONS. IF 
THE USER ELECTS TO GENERATE THE INPUT DATA BY USING THE 
SUBROUTINE sample, THE EQUATIONS MUST BE WRITTEN INTO 
THE SUBROUTINE USING STANDARD FORTRAN 77 STATEMENTS AND 
THE INPUT DATA GENERATED MUST BE STORED IN THE 
ARRAY xtmpO . THE OUTPUT OF 'FFT. FOR' IS STORED IN 
THE ARRAY x() . THE USER HAS THE OPTION OF SELECTING 
ONE OF TWO OPERATING MODES: BATCH OR TEST. 

IN BATCH MODE THE AMOUNT OF INTERACTION WITH THE 
USER IS MINIMIZED AND IT IS ASSUMED THAT THE INPUT 
PARAMETERS HAVE BEEN STORED IN THE INPUT FILE 'FFT. IN'. 
IN TEST MODE THE USER IS PROMPTED FOR THE NAME OF 
THE INPUT FILE OR HAS THE OPTION TO PERFORM A TRIAL 
RUN USING THE DATA STORED IN THE FILE 'FFT.TST' . 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT TEST 
MODE AND MAKE A TRIAL RUN WITH THE PRESTORED 
DATA. THE TEST MODE ECHOES PORTIONS OF THE INPUT 
DATA ONTO THE MONITOR TO ALLOW VERIFICATION OF ITS 
ACCURACY. THE OUTPUT IS STORED IN TABULAR FORM IN 
THE FILE 'FFT. OUT' AND IN A FORM SUITABLE FOR PLOTTING 
IN THE FILE 'FFT. DAT' . 



q ****************************** INFUT ******************************** 



c 

c 

C THIS PROGRAM ASSUMES THAT THERE ARE N = 2**m COMPLEX VALUES IN THE 
C INPUT SEQUENCE. THE INPUT SEQUENCE IS ASSUMED TO BE DEFINED IN 
C THE INTERVAL: 0 TO N-l. IF THE INPUT SEQUENCE CONSISTS OF 'REAL' 

C NUMBERS THE IMAGINARY PART IS STORED AS 0.0. THE VALUE 'm' AS WELL 
C AS THE OTHER PAIRAMETERS DESCRIBED BEIDW SHOULD BE STORED IN THE 
C INPUT FILE 'FFT. IN' . ALL OF THE 1READ STATEMENTS USED BY THIS 
C PROGRAM PREQUXRE FORMATTED INPUT. PAITICUIAR ATTENTION SHOULD BE 
C PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
C DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 

C 

C 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



NAME 


TYPE 


RANGE (ARRAYS) 


m 


INTEGER 




dsorce 


CHARACTER 




option 


CHARACTER 




xtmpO 


COMPLEX 


0, 1, ..., N-l 


WHERE: 







RESTRICTIONS 

0 <= m <= 8 
•F' OR 'S' 
'EFT' OR 'INV' 
1 <= N <= 256 



m = AN INTEGER THAT SPECIFIES THE NUMBER OF COMPLEX VALUES IN THE 
INPUT SEQUENCE. N = 2**m. 

dsorce = A CHARACTER VALUE OF ' F ' OR 'S' DENOTING WHETHER THE 
INPUT DATA IS TO BE READ FROM A FILE (F) OR TO BE 
GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN THE 
SUBROUTINE sample. 

option = A CHARACTER STRING OF THE LETTERS 'FFT' OR 'INV' 

DENOTING WHETHER THE FFT OR THE INVERSE FFT IS TO BE 
PERFORMED ON THE INPUT DATA. 

xtmp() = THE ARRAY OF COMPLEX INPUT DATA. IF dsorce = 'F' IS 
SELECTED THEN THE USER MUST SUPPLY THE N INPUT VALDES 
IN THE FILE. IF dsorce = 'S' THEN THE USER HAS 
ELECTED TO GENERATE THE INPUT SEQUENCE BY PROVIDING THE 
APPROPRIATE FORTRAN STATEMENTS IN THE SPACE PROVIDED IN 
SUBROUTINE sample. IF THIS METHOD OF DATA GENERATION IS 
ELECTED THE PROGRAM MUST BE RECOMPILED BEFORE EXECUTION. 



NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********* 
THE FORM OF THE INPUT DATA FILE IS: 



LINE# 


ENTRIES 


F0P5MAT 


1 


m , dsorce , option 


il , til , al , t21 , a3 


2. . .N+l 


xtmp() 


2flO. 0 



WHERE: N = 2**m 



NOTES 1. LINES 2...N+1 ARE ONLY REQUIRED IF dsorce = 'F'. IF 

dsorce = 'S' THEN THE USER HAS ELECTED TO GENERATE THE 
N = 2**m VALUES FOR xtmp() IN THE SUBROUTINE sample. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS IN 
SUBROUTINE sample TO GENERATE THE VALDES FOR xtmp() . 

2. THE FORMAT flO.O USED FOR INPUT DATA PERMITS THE DECIMAL 
POINT TO BE PLACED ANYWHERE IN THE FIELD OF TEN COLUMNS 
AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (E.G. , 
3146.2 = 3 . 1462E+03) . 
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c 

C****************************** OUTPUT ****************************** 



C 

C 

C THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
C FORM IN THE FILE 'FFT.OUT'. ADDITIONALLY, THE INPUT SEQUENCE (REAL 
C AND IMAGINARY) AND THE OUTPUT SEQUENCE (MAGNITUDE AND PHASE) ARE 
C WRITTEN INTO THE FILE 'FFT.DAT' TO FACILITATE PLOTTING BY A 
C SEPARATE, USER SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 
C 'FFT.DAT' IS: el2.6, 2x, el2.6. THE FIRST ENTRY CORRESPONDS TO 
C THE ORDINATE VALUE AND THE SECOND ENTRY, THE ABSCISSA VALUE. 

C ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 'FFT.DAT' TO ALLOW 
C FOR CONTROL AND LABELING OF EACH PLOT. 

C 

C 

C****************************** EXAMPLE ****************************** 



C 

C 

C 

C 

C 

C 

C 



THE INPUT PARAMETERS BELOW ARE STORED IN THE INPUT FILE ' FFT . TST ' . 
THERE ARE EIGHT DATA POINTS IN THE INPUT SEQUENCE AND THE GOAL IS 
TO COMPUTE THE FAST FOURIER TRANSFORM (FFT) OF THE SEQUENCE. 

NOTE: N = 2**m = 8 THEREFORE m = 3. 



c 


3 


F FFT 








c 


0.0 


0.0 








c 


1.0 


0.0 








c 


2.0 


0.0 








c 


3.0 


0.0 








c 


4.0 


0.0 








c 


0.0 


0.0 








c 


0.0 


0.0 








c 

c 


0.0 


0.0 








c 

c 

n 


THE RESULTING OUTPUT DATA FILE 'FFT.OUT' 


IS: 




L. 

c 


INPUT 


DATA SOURCEFILE: FFT. TST 






c 


VALUE 


OF m = 3 VALUE 


OF N (2**m) = 


8 




c 

c 


dsorce = F option = FFT 






c 

c 




INPUT 


DATA 


INPUT 


DATA 


c 

c 








(BIT-REVERSED ORDER) 


c 


SAMPLE # REAL 


IMAGINARY 


REAL 


IMAGINARY 


c 


0 


•000000E+00 


. 000000E+00 


. OOOOOOE+OO 


. OOOOOOE+OO 


c 


1 


. 100000E+01 


. OOOOOOE+OO 


. 400000E+01 


. OOOOOOE+OO 


c 


2 


. 200000E+01 


. 000000E+00 


•200000E+01 


.OOOOOOE+OO 


c 


3 


. 300000E+01 


. 000000E+00 


.OOOOOOE+OO 


. OOOOOOE+OO 


c 


4 


•400000E+01 


.OOOOOOE+OO 


. 100000E+01 


. OOOOOOE+OO 
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C 5 

C 6 

C 7 

C 



OOOOOOE+OO . OOOOOOE+OO 
OOOOOOE+OO . OOOOOOE+OO 
OOOCOOE+OO . OOOOOOE+OO 



OOOOOOE+OO . OOOOOOE+OO 
300000E+01 .OOOOOOE+OO 
OOOOOOE+OO . OOOOOOE+OO 



C 

C 

C 



OUTPUT DATA 



C SAMPLE # REAL 
C 



IMAGINARY 



MAGNITUDE 



(DEGREES) 

. OOOOOOE+OO 
138273E+03 
. 450000E+02 
162236E+03 
. OOOOOOE+OO 
. 162236E+03 
-. 450000E+02 
. 138273E+03 



PHASE 



C 0 

C 1 

C 2 

C 3 

C 4 

C 5 

C 6 

C 7 

r 



. 100000E+02 . OOOOOOE+OO . 100000E+02 

-.541421E+01 -.482843E+01 .725448E+01 

. 200000E+01 . 200000E+01 .282843E+01 

-.258579E+01 -.828427E+00 .271525E+01 

. 200000E+01 .OOOOOOE+OO .200000E+01 

-.258579E+01 .828427E+00 .271525E+01 

. 200000E+01 -.200000E+01 .282843E+01 

-. 541421E+01 . 482843E+01 .725448E+01 



C 



C FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCE xtmpQ CCUID HAVE 
C BEEN GENERATED BY SPECIFYING dsorce = 'S' AND WRITING THE 
C APPROPRIATE FORTRAN STATEMENTS INTO SUBROUTINE sample. THE 
C STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE WRITTEN 
C INTO THE SUBROUTINE BUT ARE 'COMMENTED OUT' . 



C*************************** MAIN PROGRAM **************************** 



character infile*12, option*3, mode*l, dsorce*l 
complex x (0:255) , xtmp(0:255) 
real xmag(0:255) , xph(0:255), nn 

C PROMPT USER FOR MODE: BATCH OR TEST. 

write (*, 1115) 
read ( * , 1117) mode 

if ((mode.eq. 'y') .or. (mode.eq. 'Y')) then 
mode = 'Y' 
write (*,1118) 
read (*,1119) infile 
else 

infile= 'FFT.IN' 
endif 

C UNIT=1 DEFINED AS INPUT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 

open (unit=l, file=infile,status= 'old' , iostat=ierr,err=999) 
open(unit=2, file='FFT.OUT' ) 
open ( unit=3 , f ile= ' FFT . DAT ' ) 



C 

C 
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C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 



read (1,1000) m, dsorce, option 

if ((m.lt.O) .or. (m.gt.8) ) then 
write (*,1010) m 

stop "The allowed values for m are: 0 <= m <= 8. ' 

endif 

if ( (option. eq. 'EFT') .or. (option. eq. 'fft')) then 
option = 'FFT' 

elseif( (option, eq. 'INV'). or. (option. eq. 'inv')) then 
option = 'INV' 
else 

write ( * , 1011) option 

stop "Ihe allowed values for option are: ' 'FFT' ' or ' 'INV' ' . ' 
endif 

if ( (dsorce. eq. 'F' ) .or. (dsorce. eq. ' f ' ) ) then 
dsorce = 'F' 

elseif ( (dsorce. eq. 'S' ) .or. (dsorce. eq. 's' ) ) then 
dsorce = 'S' 
else 

write ( * , 1018 ) dsorce 

stop "Ihe allowed values for dsorce are: * 'S' ' or ' ' F ' ' . ' 
endif 

C DEFINE CONSTANTS. 

N = 2**m 
en = N 
k = 8 

pi = 4.0*atan(1.0) 
numplts = 4 

C FOR dsorce = 'F' READ THE INPUT SEQUENCE FROM THE INPUT FILE. 

C FOR dsorce = 'S' CALL sample TO GENERATE THE INPUT SEQUENCE. 

C THE INPUT SEQUENCE IS STORED IN THE ARRAY xtmpQ . 

if (dsorce. eq. ' F ' ) then 
read( 1,1001) (xtmp(i) , i=0,N-l) 
else 

call sairple(xtmp,N) 
endif 

C FOR TEST MODE ECHO INPUT DATA ONTO THE MONITOR (UNIT = *) . 

if (mode.eq. 'Y' ) then 
write (*,1016) infile 
if (N. It. 8) k=N 

write(*, 1017) m, N, dsorce, option 
write (*,1012) k 
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3 



write (*,1013) 
do 3 i=0, k-1 

write (*,1020) i, xtmp(i) 
continue 
endif 

C WRITE THE INPUT SEQUENCE INTO FILE: FFT.DAT. 

write (3,2000) numplts 
write (3, 2001) N 

write (3,*) 'INPUT SEQUENCE (REAL)' 
write (3,*) 'SAMPLE #' 
write(3,*) 'REAL xtmpQ ' 
do 55 i=0, N-l 
nn = i 

write(3,2010) nn, real(xtmp(i) ) 

55 continue 

write (3, 2001) N 

write (3,*) 'INPUT SEQUENCE (IMAGINARY)' 
write (3,*) 'SAMPLE #' 
write(3,*) 'IMAG xtmp() ' 
do 56 i=0, N-l 
nn = i 

write(3,2010) nn, aimag(xtnp(i) ) 

56 continue 

C CALL reversal TO REARRANGE DATA INTO BIT-REVERSED ORDER. 

call reversal (N, in, xtmp,x) 

C WRITE INPUT DATA INTO FILE: FFT.OUT. 

write (2, 1016) infile 

write (2, 1017) m, N, dsorce, option 

write (2, 1014) 

write (2, 1015) 

do 8 i=0, N-l 

write(2, 1030) i, xtmp(i) , x(i) 

8 continue 

C CALL fft OR invfft TO PERFORM THE SELECTED COMPUTATION. 

if (option. eq. 'INV' ) then 
call invfft (N,m,x) 
else 

call fft(N,m,x) 
endif 
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C TRANSFORM OUTPUT DATA INTO EXPONENTIAL FORM: xmag*EXP( j*xph) . 
C PHASE xph() IS EXPRESSED IN DEGREES. 

do 60 i=0, N-l 
xmag(i) =cabs(x(i)) 
if (abs(real(x(i) ) ) .lt.l.0e-15) then 

if (abs(ahmag(x(i) ) ) .le.l.0e-15) xph(i)=0.0 
if (aimag(x(i) ) .gt.l.0e-15) xph(i)=90.0 
if (aimag(x(i) ) .lt.-1.0e-15) xph(i)=-90.0 
else 

xph(i)=(180.0/pi)*atan2(aimag(x(i) ) ,real(x(i) ) ) 
endif 

60 continue 

C WRITE THE OUTPUT DATA INTO FILE: FFT.DAT. 

write (3 ,2001) N 
write (3, *) 'OUTPUT MAGNITUDE' 
write(3, *) 'SAMPLE #' 
write (3, *) 'MAGNITUDE' 
do 57 i=0, N-l 
nn = i 

write (3, 2010) nn, xmag(i) 

57 continue 

write (3, 2001) N 
write (3,*) 'OUTPUT PHASE' 
write (3,*) 'SAMPLE #' 
write(3,*) ' FHASE (DEG)' 
do 58 i=0, N-l 
nn = i 

write(3,2010) nn, xph(i) 

58 continue 

C WRITE THE OUTPUT DATA INTO FILE: FFT.OUT. 

write (2, 1025) 
do 5 i=0, N-l 

write(2,1030) i, x(i) , xmag(i), xph(i) 

5 continue 

write (*,1019) 

999 close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.0) then 
write (*,1116) infile, ierr 
endif 
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q ******** INHJT FORMAT ******** 



1000 format (il, til, al,t21,a3) 

1001 format (2f 10.0) 

Q ******************************** 

1010 format(lx, 'm = *,il,2x, 'Error, value of m not allowed. ') 

1011 format (lx, 'option = ' ,a3,2x, 'Error, illegal value for option.') 

1012 0format(/, ' THE FIRST ' , il , ' VALUES OF xtmp() ARE LISTED ', 

1 ' BELOW. ' ,/, ' VERIFY THAT THE DATA WAS STORED CORRECTLY. ') 

1013 format (/,t4, 'SAMPLE #' ,tl5, 'REAL' ,t29, 'IMAGINARY' ,/) 

1014 0format(///,t25, 'INPUT DATA' ,t57, 'INHJT DATA',/, 
lt52 , ' (BIT-REVERSED ORDER) ' ,/) 

1015 Oformat (t4 ,' SAMPLE #' ,tl7, 'REAL' ,t33, 'IMAGINARY' ,t49, 'REAL' , 
lt65, 'IMAGINARY') 

1016 format (///,' INFUT DATA SOURCEFILE: ',al2) 

1017 Oformat ( ' VATJL OF m = ', il, 5x, 'VALUE OF N (2**m) = ',i3,/,lx, 
l'dsorce = ' ,al,5x, 'option = ',a3) 

1018 format ( lx, 'dsorce = ' ,al,2x, 'Error, illegal value for dsorce. ') 

1019 Oformat (//, ' TABULAR OUTHJT DATA IS STORED IN FILE: FFT.OUT. ' , 
1/,' PLOTTING DATA IS STORED IN FILE: FFT.DAT. ' ) 

1020 format(t7,il,tl3,2(el2.6,2x) ) 

1025 Oformat (/// , t33 , 'OUTPUT DATA' ,//,t4, 'SAMPLE #' ,tl7, 'REAL' , 

lt3 3, 'IMAGINARY' ,t49, 'MAGNITUDE' ,t67, 'PHASE' ,/,t65, ' (DEGREES) ') 

1030 format(t5, i3,tl5,4 (el2. 6,4x) ) 

1115 Oformat (lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : \\,) 

1116 Oformat (///, lx, 'ERROR OPENING INPUT FILE: ' ,al2,/,lx, 'PROGRAM' , 

1 ' TERMINATED. ' ,//, lx, 'ERROR CODE: ' , i4 ,/////) 

1117 format (al) 

1118 Oformat (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED' , 

1' BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: FFT.TST' , 

3' TYPE: FFT.TST <CR>' ,/, ' FILENAME: ',\,) 

1119 format ( al2 ) 

2000 format (il) 

2001 format (i3) 

2010 format(el2.6,2x,el2.6) 

end 



C SUBROUTINE: invfft 



C FURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 

C X ( ) , CONFUTES THE INVERSE FAST FOURIER TRANSFORM (IFFT) 

C OF THE ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 

C ORIGINAL ARRAY x() . 
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subroutine invfft(N,m,x) 
complex x(0:N-l) 

en = N 



C CALCULATE THE COMPLEX CONJUGATE OF THE INRJT SEQUENCE. 

do 70 i=0, N-l 
x(i) = conjg(x(i) ) 

70 continue 

C CALCULATE THE FAST FOURIER TRANSFORM OF THE ARRAY, 
call fft(N,m,x) 

C CALCULATE THE COMPLEX CONJUGATE OF THE RESULTING ARRAY. 

do 80 i=0, N-l 
x(i) = conjg(x(i) )/en 
80 continue 

return 

end 



C 



SUBROUTINE : reversal 



C PURPOSE: THIS SUBROUTINE ACCEPTS AS INRJT THE COMPLEX ARRAY 

C CONTAINING THE VALUES xtmpQ THAT WERE READ FROM 

C THE INPUT FILE. THE OUTPUT OF THIS SUBROUTINE IS 

C THE COMPLEX ARRAY x() THAT CONTAINS THE INPUT 

C VALUES IN 'BIT-REVERSED' ORDER. 



subroutine reversal (N,m, xtmp,x) 
complex xtmp(0:N-l) , x(0:N-l) 

do 10 k=0, N-l 
newaddr = 0 
maddr = k 
do 20 i=0, m-1 

lrmndr = mod (maddr, 2) 
newaddr = newaddr + lrmndr*2** (m-l-i) 
maddr = maddr/ 2 
20 continue 

x (newaddr) = xtmp(k) 

10 continue 

return 

end 
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c 



SUBROUTINE: fft 



C HJRPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY X() , 

C COMRJTES THE FAST FOURIER TRANSFORM (FFT) OF THE 

C ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 

C ORIGINAL ARRAY x() . 



subroutine fft(N,m,x) 
complex x(0:N-l), W, trap 

pi = 4.0*atan(1.0) 
en = N 

do 50 L=l, m 
ispace = 2**L 
s = N/ ispace 
iwidth = ispace/ 2 
do 40 j=0, iwidth-1 
r = s*j 

alpha = 2.0*pi*r/en 
W = cmplx(cos (alpha) ,-sin(alpha) ) 
do 30 itop=j, N-2, ispace 
ibot = itop + iwidth 
tmp = x(lbot) *W 
x(ibot) = x(itop) - tnp 
x(itop) = x(itop) + tmp 
30 continue 

40 continue 

50 continue 

return 

end 



C SUBROUTINE: sample 



C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE 2**m 

C SAMPLES OF A CONTINUOUS FUNCTION. THE SAMPLES ARE 

C RETURNED TO THE MAIN PROGRAM IN THE ARRAY xtmp() . 



subroutine sample (xtmp,N) 
complex xtmp(0:N-l) 

pi = 4.0*atan(1.0) 
en = N 
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c*** ****** ************************************************************** 



C DEVELOP THE SAMPLING ALGORITHM IN THIS SPACE. THE STATEMENTS 
C TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND MAY USE 
C FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SINQ , COS(), ABS()... 

C AN EXAMPLE IS SHOWN BELOW. THE INPUT DATA MUST BE STORED IN 
C THE ARRAY xtmp() . FFT.POR MUST BE COMPILED AGAIN BEFORE 
C EXECUTION IF THIS SUBROUTINE IS USED. 

C 

C *** EXAMPLE *** 

C 

C do 2 i=0, N-l 

C if(i.le.4) then 

C xtmp(i) = anplx(i,0.0) 

C else 

C xtmp(i) = cmplx(0. 0,0.0) 

C endif 

C 2 continue 

C******* **************************************************************** 



return 

end 
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VERSION: 2/03/88 



C 

C 

C 

C PURPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



CONCORFT . FOR 



THIS PROGRAM PERFORMS ANY ONE OF THE FOLLOWING POUR 
COMPUTATIONS GIVEN TOO COMPLEX ARRAYS OF INPUT DATA: 
LINEAR CONVOLUTION (LOON) ; LINEAR CORRELATION (LCOR) ; 
CIRCULAR CONVOLUTION (COON) ; OR CIRCULAR CORRELATION 
(COOR) BY USING THE FAST FOURIER TRANSFORM (EFT) 
ALGORITHM. FOR THE CONVOLUTION OPERATIONS THE PROCEDURE 
INVOLVES COMPUTING THE FFTs OF THE ARRAYS, MULTIPLYING 
THE FFTs TOGETHER AND COMPUTING THE INVERSE FFT 
OF THE RESULT. FOR THE CORRELATION OPERATIONS THE 
PROCEDURE IS THE SAME EXCEPT THAT THE CONJUGATE OF 
THE FFT OF THE FIRST INPUT ARRAY IS MULTIPLIED BY THE 
FFT OF THE SECOND ARRAY. THE PROGRAM CONSISTS OF A MAIN 
PROGRAM AND SIX SUBROUTINES. THE SUBROUTINE zeropad 
EXTENDS THE INPUT ARRAY PASSED TO IT BY ADDING AN 
APPROPRIATE NUMBER OF ZEROES TO THE ORIGINAL INPUT DATA 
TO CREATE AN ARRAY OF LENGTH 2**m, m = INTEGER. THE 
SUBROUTINE fft COMPUTES THE DISCRETE FOURIER TRANSFORM 
OF AN ARRAY USING THE RADIX-2 FFT ALGORITHM. THE 
SUBROUTINE invfft COMFUTES THE INVERSE DISCRETE 
FOURIER TRANSFORM OF AN ARRAY USING THE ALTERNATE 
INVERSION FORMULA. THE SUBROUTINE reversal REARRANGES 
THE INPUT DATA INTO BIT-REVERSED ORDER BEFORE fft IS 
CALLED. THE SUBROUTINES sairpll AND saupl2 ALLOW THE 
USER TO GENERATE EITHER OF THE INPUT ARRAYS BY WRITING 
THE APPROPRIATE EQUATIONS. IF THE USER CHOOSES TO 
GENERATE THE INPUT DATA BY USING EITHER OF THE saitpl 
SUBROUTINE (S) , THE EQUATIONS MUST BE WRITTEN INTO 
THE SUBROUTINE (S) USING STANDARD FORTRAN 77 EXECUTABLE 
STATEMENTS AND THE VALUES GENERATED MUST BE STORED 
IN THE ARRAYS xnl() AND xn2() . THE USER HAS THE 
OPTION OF SELECTING ONE OF TOO OPERATING MODES: BATCH 
OR TEST. IN BATCH MODE THE AMOUNT OF INTERACTION 
WITH THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE 
INPUT PARAMETERS HAVE BEEN STORED IN THE INPUT FILE 
'CONCORFT. IN' . IN TEST MODE THE USER IS PROMPTED 
FOR THE NAME OF THE INPUT FILE AND HAS THE OPTION 
TO PERFORM A TRIAL RUN USING THE DATA STORED IN THE 
FILE ' CONCORFT. TST ' . IT IS RECOMMENDED THAT FIRST-TIME 
USERS SELECT TEST MODE AND PERFORM A TRIAL RUN 
WITH THE PRESTORED DATA. THE TEST MODE ECHOES 
PORTIONS OF THE INPUT DATA ONTO THE MONITOR TO ALLOW 
VERIFICATION OF ITS ACCURACY. THE OUTPUT OF THE 
PROGRAM 'CONCORFT. FOR' IS STORED IN THE ARRAY xn3() 

AND IS WRITTEN IN TABULAR FORM INTO THE FILE 
'CONCORFT. OUT' AND IN A FORM SUITABLE FOR PLOTTING 
IN THE FILE ' CONCORFT . DAT ' . 
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C***************************** INPUT ********************************* 



C 

c 

C THIS PROGRAM ASSUMES THAT THERE ARE TWO SEQUENCES OF INPUT DATA 
C STORED IN THE ARRAYS xnl() AND xn2() OF LENGTH 'Nl' AND 'N2', 

C RESPECTIVELY. THE SEQUENCES ARE ASSUMED TO BE COMPLEX. IF THE 
C SEQUENCES CONTAIN REAL VALUES ONLY, THEN THE IMAGINARY PART IS 

C STORED AS 0.0 . THIS PROGRAM USES A RADIX-2 FFT ALGORITHM. 

C FOR LINEAR CONVOLUTION OR LINEAR CORRELATION (option = LCON,LCOR) 
C THE INPUT ARRAYS DO NOT HAVE TO BE OF LENGTH 2**m, m = INTEGER. 

C THE SUBROUTINE zeropad ADJUSTS THE ARRAY LENGTHS BEFORE 
C THE FFT COMPUTATIONS ARE MADE. FOR CIRCULAR CONVOLUTION OR 
C CIRCULAR CORREIATION (option = CCON,CCOR) THE ARRAYS MUST BE OF 
C LENGTH 2**m, m = INTEGER BECAUSE EXTENDING THE SEQUENCES BY 
C ZERO PADDING WILL PRODUCE ERRONEOUS RESULTS. THE INFUT SEQUENCES 

C ARE ASSUMED TO BE DEFINED IN THE INTERVALS 0 TO Nl-1, AND 0 

C TO N2-1, RESPECTIVELY. - THIS PROGRAM ALLOWS THE USER THE 
C OPTION OF EITHER READING THE INPUT ARRAYS FROM THE DATA 
C FILE OR GENERATING THE INPUT VALUES FROM AN ITERATIVE EQUATION 
C IN THE sanpl SUBROUTINE (S) . THE PARAMETERS DESCRIBED 
C BELOW ALLOW THE USER TO SELECT THE DESIRED OPTIONS AND THESE 
C PARAMETERS SHOULD BE STORED IN THE INPUT FILE 'CONCORFT.IN' . 

C ALL OF THE READ STATEMENTS USED BY THIS PROGRAM REQUIRE FORMATTED 
C INPUT. PARTICULAR ATTENTION SHOULD BE PAID TO THESE FORMATS, 

C ESPECIALLY THE USE OF THE DECIMAL POINT TO DISTINGUISH BETWEEN 
C 'REAL' AND INTEGER DATA. 

C 

C 



c 

r* 


NAME 


TYPE 


RANGE (ARRAYS) 


RESTRICTIONS 


c 


Nl 


INTEGER 






1 <= Nl <= 128 


c 


dsrcel 


CHARACTER 






'F' OR 'S' 


c 


N2 


INTEGER 






1 <= N2 <= 128 


c 


dsrce2 


CHARACTER 






•F' OR 'S' 


c 


option 


CHARACTER 




ONE 


OF THE FOLLOWING: 


c 

r> 








'ICON' 


'POOR' 'CCON' 'CCOR 


c 


xnl() 


COMPLEX 


0, 


1, ..., Nl-1 


1 <= Nl <= 128 


c 

r* 


xn2 () 


COMPLEX 


o, 


1, ..., N2-1 


1 <= N2 <= 128 


c 


WHERE: 











C 

C Nl = AN INTEGER THAT SPECIFIES THE NUMBER OF COMPLEX VALUES 
C TO BE STORED IN THE ARRAY xnl() . FOR option = CCON 

C OR CCOR, Nl MUST BE AN INTEGER POWER OF 2, AND Nl AND N2 

C MUST BE EQUAL. 

C 

C dsrcel = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
C INPUT ARRAY xnl() IS TO BE READ FROM A FILE (F) OR TO 

C BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 

C THE SUBROUTINE sampll. 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



N2 = AN INTEGER THAT SPECIFIES THE NUMBER OF COMPLEX VALUES 
TO BE STORED IN THE ARRAY xn2() . FOR option = CCON 
OR CCOR, N2 MUST BE AN INTEGER POWER OF 2, AND N1 AND N2 
MUST BE EQUAL. 

dsrce2 = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT ARRAY xn2() IS TO BE READ FROM A FILE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 
THE SUBROUTINE sanpl2. 

option = A CHARACTER STRING OF FOUR LETTERS DENOTING THE 

CQMHJTATION DESIRED: 'LOON' = LINEAR CONVOLUTION 

'ICOR' = LINEAR CORRELATION 
'CCON' = CIRCULAR CONVOLUTION 
'CCOR' = CIRCULAR CORRELATION . 



xnl() = THE FIRST ARRAY OF COMPLEX INPUT DATA. IF dsrcel = ' F * 
IS SPECIFIED THE USER MUST SUPPLY THE N1 INPUT VALUES 
IN THE FILE. IF dsrcel = 'S' THE USER HAS ELECTED TO 
GENERATE THE INPUT DATA BY PROVIDING THE APPROPRIATE 
FORTRAN STATEMENTS IN THE SPACE ALLOCATED IN SUBROUTINE 
sampll. IF THIS METHOD OF DATA GENERATION IS ELECTED 
THE PROGRAM MUST BE RECOMPILED BEFORE EXECUTION. 



Xn2() = THE SECOND ARRAY OF COMPLEX INPUT DATA. IF dsrce2 = 

'S' IS SPECIFIED THE USER HAS ELECTED TO PROVIDE THE 
APPROPRIATE FORTRAN STATEMENTS IN THE SPACE ALLOCATED 
IN SUBROUTINE sampl2. IF THIS METHOD OF DATA 
GENERATION IS ELECTED THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. IF dsrce2 = ' F ' THEN THE USER MUST 
SUPPLY THE N2 INPUT VALUES IN THE FILE. 

NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********. 
THE FORM OF THE INPUT DATA FILE IS: 



LINE# 



ENTRIES 



FORMAT 



1 

2 

NOTE 1 
NOTE 2 



Nl, dsrcel 
N2 , dsrce2 , option 
xnl() 
xn2 () 



i3,tll,al 
i3 , til , al , t21 , a4 
2fl0.0 
2fl0. 0 



NOTES 1. IF dsrcel = ' F ' THEN THE LINES 3...N1+2 MUST CONTAIN 

THE VALUES TO BE READ INTO THE ARRAY xnl() . EACH VALUE 
IS READ AS A COMPLEX NUMBER, I.E., REAL IMAGINARY. 
IF dsrcel = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALUES FOR xnl() IN THE SUBROUTINE sainpll. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampll TO GENERATE xnl() . 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



2. IF dsrce2 = ’ F ' THEN THE NEXT N2 LINES CONTAIN THE 
VALUES TO BE READ INTO THE ARRAY xn2 () . EACH VAUJE 
IS READ AS A COMPLEX NUMBER, I.E., REAL IMAGINARY. 

IF dsrce2 = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALUES FOR xn2() IN THE SUBROUTINE sampl2. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampl2 TO GENERATE THE ARRAY xn 2 ( ) . 

3. THE FORMAT 2fl0.0 USED FOR INRJT DATA PERMITS THE 
DECIMAL POINT TO BE PIACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND AISO ALLOWS THE EXPONENTIAL FORMAT TO BE 
USED (E.G. , 3146.2 = 3.1462E+03). 

4. IF option = 1 CCON 1 OR 'CCOR' N1 MUST BE EQUAL TO N2. 



C**************************** OUTPUT ******************************** 



C 

C 

C THE INPUT DATA AS WELL AS THE OUTPUT DATA ARE STORED IN TABULAR 
C FORM IN THE FILE 'CONCORFT.CUT' . ADDITIONALLY, THE INPUT 
C SEQUENCES AND THE OUTPUT SEQUENCE ARE WRITTEN INTO THE FILE 
C 'CONCORFT.DAT' TO FACILITATE PLOTTING BY A SEPARATE, USER 
C SUPPLIED PROGRAM. THE FORMAT OF THE DATA IN 'CONCORFT.DAT' IS: 

C el2.6, 2x, el2 . 6 . THE FIRST ENTRY CORRESPONDS TO THE ORDINATE 
C VALUE AND THE SECOND ENTRY, THE ABSCISSA VALUE. ADDITIONAL HEADER 
C INFORMATION IS WRITTEN INTO 'CONCORFT.DAT' TO ALLOW FOR CONTROL 
C AND LABELING OF EACH PLOT. 

C 

c 

£**************************** EXAMPLE ******************************** 



c 

c 

C THE INPUT PARAMETERS BELOW ARE STORED IN THE INPUT FILE 
C 'CONCORFT.TST' . THE PROGRAM READS THE FIRST 4 VALUES INTO xnl() 
C (dsrcel = 'F' , N1 = 4) , AND READS THE NEXT 5 VALUES INTO xn2() 

C (dsrce2 = ' F ' , N2 = 5) . THE GOAL IS TO CALCULATE THE LINEAR 
C CONVOLUTION OF THE TWO INPUT ARRAYS. 

C 
C 

C 004 
C 005 
C 1.0 
C 1.0 
C 1.0 
C 1.0 
C 2.0 



F 

F ICON 

0.0 
0.0 
0.0 
0.0 
0.0 
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c 


2.0 


0.0 


c 


2.0 


0.0 


c 


2.0 


0.0 


c 


2.0 


0.0 



c 

c 

C THE RESULTING OUTPUT DATA FILE ' GONCORFT . OUT 1 IS: 
C 



C 


INPUT DATA SCURCEFILE: CONCORFT.TST 


C 


N1 = 


4 dsrcel = F 


N2 = 5 dsrce2 = F 


C 

C 


option 


= ICON 




C 

C 

/"» 




INPUT 


DATA 


U 

c 




xnl() 


c 


n 


REAL 


IMAGINARY 


c 


0 


. 100000E+01 


. 000000E+00 


c 


1 


. 100000E+01 


. 000000E+00 


c 


2 


. 100000E+01 


. 000000E+00 


c 

r* 


3 


. 100000E+01 


. 000000E+00 


L, 

c 




xn2 () 


c 


n 


REAL 


IMAGINARY 


c 


0 


•200000E+01 


. 000000E+00 


c 


1 


.200000E+01 


. 000000E+00 


c 


2 


. 200000E+01 


. 000000E+00 


c 


3 


. 200000E+01 


. 000000E+00 


c 

c 


4 


. 200000E+01 


. 000000E+00 


c 

c 

c* 




OUTPUT 


DATA 


c 




xn3 () 


c 


n 


REAL 


IMAGINARY 


c 


0 


.200000E+01 


.894070E-07 


c 


1 


•400000E+01 


-.421468E-07 


c 


2 


. 600000E+01 


-.754979E-07 


c 


3 


.800000E+01 


-. 168587E-06 


c 


4 


.800000E+01 


-.894070E-07 


c 


5 


. 600000E+01 


.421468E-07 


c 


6 


.400000E+01 


.754979E-07 


c 

c 


7 


. 200000E+01 


. 168587E-06 


c 

c 


NOTE: 


FOR ILLUSTRATIVE 


PURPOSES THE INPUT SEQUENCES COULD HAVE 


c 




BEEN GENERATED BY SPECIFYING dsrce# = 'S' AND WRITING THE 


c 




APPROPRIATE FORTRAN STATEMENTS INTO THE sampl# SUBROUTINES 


c 




THE STATEMENTS THAT COULD BE USED TO ACCOMPLISH THIS ARE 


c 




WRITTEN INTO THE 


RESPECTIVE SUBROUTINES BUT ARE 'COMMENTED 


c 




OUT' . 





C 
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c 

C************************** MAIN PROGRAM ***************************** 



character infile*12, option*4, mode*l, dsrcel*l, dsrce2*l 
character title* 20 

complex xnl (0:255) , xn2(0:255), xn3(0:255) 
complex xtitpl (0:255) , xtmp2 (0:255) , xtmp3 (0:255) 
real nn 

C PROMPT USER FOR MODE: BATCH OR TEST. 

write (*, 1115) 
read (*, 1117) mode 

if ( (mode.eq. 'y 1 ) .or. (mode.eq. 'Y' ) ) then 
mode = 1 Y' 
write(*, 1118) 
read (*,1119) infile 
else 

infile = 'OONQORFT.IN' 
endif 

C UNIT=1 DEFINED AS INPUT FILE. UNTTS=2,3 DEFINED AS OUTPUT FILES. 

open (unit=l , f ile=inf ile , status= 1 old 1 , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' CONCORFT . OUT ' ) 
open (unit=3 , f ile= 1 CONCORFT . DAT ' ) 

C READ INPUT PARAMETERS AND CONDUCT ERROR CHECKS. 

read (1,1000) Nl, dsrcel 

read (1,1001) N2, dsrce2, option 

if ( (dsrcel. eq. 'f 1 ) .or. (dsrcel. eq. ' F 1 ) ) then 
dsrcel = 1 F 1 

elseif ( (dsrcel. eq. 's' ) .or. (dsrcel. eq. 'S' ) ) then 
dsrcel = 'S' 
else 

write(*, 1009) 'dsrcel = ', dsrcel 

stop "The allowed values for dsrcel are: 1 ’ F ' ' or 1 'S' 1 . ' 
endif 

if ( (dsrce2 . eq. ' f ' ) . or. (dsrce2 . eq. ' F ' ) ) then 
dsrce2 = ' F ' 

elseif ( (dsrce2 . eq. 's') . or. (dsrce2 . eq. ' S ' ) ) then 
dsrce2 = 'S' 
else 

write (*, 1009) 'dsrce2 = ', dsrce2 

stop 'The allowed values for dsrce2 are: ' * F' ' or ' 'S' ' . ' 
endif 
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if ( (option. eq. 'ccon') .or. (option. eq. 'CCON')) then 
option = 'CCON' 

title = 'Circular Convolution' 

N3 = N1 
iend = N3 

elseif ( (option. eq. 'ccor') .or. (option. eq. 'CCOR') ) then 
option = 'CCOR' 

title = 'Circular Correlation' 

N3 = N1 
iend = N3 

elseif ( (option. eq. ' Icon ' ) . or. (option. eq. ' ICON ' ) ) then 
option = 'ICON' 
title = 'Linear Convolution' 
elseif ( (option. eq. 'lcor' ) .or. (option. eq. 'LCOR' ) ) then 
option = 'LCOR' 
title = 'Linear Correlation' 
else 

write (*,1011) option 

stop "The allowed values for option are: CCON, CCOR, ICON, LCOR. 
endif 

if ( (Nl.lt.l) .or. (Nl.gt. 128) ) then 
write (*, 1010) 'N1 = ', N1 

stop 'The allowed values for N1 are: 1 <= N1 <= 128. ' 

elseif ( (N2.1t.l) .or. (N2.gt.512) ) then 
write (*,1010) 'N2 = ', N2 

stop 'The allowed values for N2 are: 1 <= N2 <= 128. ' 

elseif ( (option. eq. 'CCON') .or. (option. eq. 'CCOR') ) then 
if(Nl.ne.N2) then 
write (*, 1008) option, Nl, N2 

stop 'For option = ' 'CCOR' ' or ' 'CCON' ' Nl must equal N2. ' 
endif 

do 14 m=0, 10 

if (2**m-N3) 14,13,15 
15 write (*, 1007) option, Nl, N2 

stop 'Error, Nl and N2 are not integer powers of 2. ' 

14 continue 

13 endif 

C DEFINE CONSTANTS. 

k = 8 

numplts = 6 

C FOR dsrce# = ' F ' READ INRJT SEQUENCE(S) FROM THE DATA FILE. 

C FOR dsrce# = 'S' CALL sample# TO GENERATE THE INRJT SEQUENCE (S) 
C THE INRJT SEQUENCES ARE STORED IN THE ARRAYS xnl() , xn2() . 
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if (dsrcel . eq. ' F ' ) then 
read(l,1002) (xnl(i) , i=0,Nl-l) 
else 

call sampll(xnl,Nl) 
endif 

if (dsrce2.eq. 'F' ) then 
read (1,1002) (xn2(i) ,i=0,N2-l) 
else 

call sampl2(xn2,N2) 
endif 



C FOR TEST MODE ECHO INFUT DATA ONTO MONITOR (UNIT = *) . 

if (mode. eq. 'Y' ) then 
write (*,1016) infile 

if ((Nl.lt. 8) .or. (N2.lt. 8)) k=min(Nl,N2) 

write(*, 1017) Nl, dsrcel, N2, dsrce2 

write ( * , 1018 ) option 

write (*, 1012) k 

write (*,1013) 

do 3 i=0, k-1 

write(*,1020) i, xnl(i), xn2(i) 

3 continue 

endif 

C WRITE THE INHJT SEQUENCES INTO FILE: CONCORFT.DAT. 

write (3,2000) numplts 
write (3, 2001) Nl 

write (3, *) 'INHJT SEQUENCE xnl (REAL) ' 
write(3, *) 'SAMPLE # (n) ' 
write (3, *) 'REAL xnl() ' 
do 54 i=0, Nl-1 
nn = i 

write(3, 2010) nn, real(xnl(i)) 

54 continue 

write (3, 2001) Nl 

write(3, *) 'INHJT SEQUENCE xnl (IMAGINARY)' 
write (3,*) 'SAMPLE # (n) ' 
write(3,*) 'IMAG xnl() ' 
do 55 i=0, Nl-1 
nn = i 

write(3,2010) nn, aimag(xnl(i) ) 

55 continue 

write (3, 2001) N2 

write (3,*) 'INHJT SEQUENCE xn2 (REAL)' 
write(3,*) 'SAMPLE # (n) ' 
write (3,*) 'REAL xn2 () ' 
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56 



do 56 i=0, N2-1 
nn = i 

write(3,2010) nn, real(xn2(i)) 
continue 

write (3, 2001) N2 

write (3,*) 'INPUT SEQUENCE xn2 (IMAGINARY) ' 
write (3,*) 'SAMPLE # (n) ' 
write (3,*) 'IMAG xn2() ' 
do 57 i=0, N2-1 
nn = i 

write (3, 2010) nn, aimag(xn2 (i) ) 

57 continue 

C WRITE INHJT DATA INTO FILE: CONCORFT.OUT. 

write (2, 1016) infile 
write (2, 1017) Nl, dsrcel, N2, dsrce2 
write (2,1018) option 
write (2, 1014) 
write(2,1015) 'xnl() 1 
do 65 i=0, Nl-1 
write(2,1026) i, xnl(i) 

65 continue 

write (2, 1015) 'xn2 () ' 
do 66 i=0, N2-1 
write(2, 1026) i, xn2(i) 

66 continue 

C FOR LINEAR CONVOLUTION OR LINEAR CORRELATION BOTH INHJT ARRAYS 
C ARE ZERO-PADDED TO LENGTH N3 = 2**m WHERE 2**m IS GREATER THAN 
C OR EQUAL TO Nl + N2 - 1. 

if ( (option. eq. 'ICON') .or. (option. eq. 'DOOR')) then 
N3 = Nl + N2 - 1 
iend = N3 
do 555 HF=0, 10 

if (2**m - N3) 555,556,556 

555 continue 

556 N3 = 2**m 

call zeropad(xnl,Nl,N3) 
call zeropad(xn2,N2,N3) 
endif 

C THE ARRAYS ARE RESEQUENCED IN BIT-REVERSED ORDER BEFORE THE 
C FFT CALCULATION IS PERFORMED. 

call reversal(N3,m,xnl,xtnpl) 
call reversal (N3,m,xn2,xtmp2) 
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call fft(N3,m,xfarnpl) 
call fft(N3,m,xtmp2) 

C IF option = 'CCON' OR 'LCON' PERFORM CONVOLUTION COMRJTATION. 

if ( (option. eq. 'LOON') .or. (option. eq. 'COON' ) ) then 
do 22 i=0, N3-1 

xtmp3(i) = xtmpl(i) *xtmp2 (i) 

22 continue 

else 

C IF option = 'CCOR' OR 'LCOR' PERFORM CORRELATION COMPUTATION. 

do 75 i=0, N3-1 

xtmpl(i) = conjg(xtmpl(i) ) 
xtmp3(i) = xtmpl(i) *xtmp2 (i) 

75 continue 

endif 

C THE RESULTING ARRAYS ARE RESEQUENCED IN BIT-REVERSED ORDER 
C BEFORE THE INVERSE FFT IS CALCULATED. 

call reversal (N3, in, xtmp3,xn3) 
call invfft(N3,m,xn3) 

C WRITE RESULTS INTO FILE: CONCORFT.DAT. 

write ( 3 , 2001) iend 
write ( 3 , 2003 ) title 
write(3,*) 'SAMPLE# (n) ' 
write(3,*) 'REAL xn3 () 1 
do 58 i=0, iend-1 
nn = i 

write (3 ,2010) nn, real(xn3(i)) 

58 continue 

write (3, 2001) iend 
write (3,2003) title 
write (3,*) 'SAMPLE # (n) ' 
write (3,*) ' IMAG xn3 ( ) ' 
do 59 i=0, iend-1 
nn = i 

write (3, 2010) nn, aimag(xn3 (i) ) 

59 continue 
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C WRITE RESULTS INTO FILE: CONCORFT.OUT. 



write (2, 1025) 
write(2,1015) 'xn3()' 
do 67 i=0, i end-1 
write(2,1026) i, xn3(i) 

67 continue 

write (*,1019) 

999 close ( unit=l ) 

close (unit=2) 
close (unit=3) 
if (ierr.gt.O) then 
write(*,1116) infile, ierr 
endif 



Q ******** TMFTIT FORMAT ******** 



1000 format(i3,tll,al) 

1001 format ( i3 , til , al , t2 1 , a4 ) 

1002 f ormat (2 f 10.0) 

Q ******************************** 



1007 0 format ( ' option = ',a4,\ N1 = ',i3,', N2 = ',i3,/,' For ', 

1 ' option = CCON or CCOR, N1 and N2 must be integer powers of 2 . ' ) 

1008 0format(' option = ',a4,', N1 = ’ , i3 , ' , N2 = ' , i3 , ' , Error,', 

1 ' N1 is not equal to N2 . ' ) 

1009 format(lx,al0,al, ' Error, value not allowed.') 

1010 f ormat( lx, a5,i3,2x, 'Error, value not allowed.') 

1011 format (lx, 'option = ' ,a4,2x, 'Error, illegal value for option.') 

1012 0format(/, ' THE FIRST ',il, ' VALUES OF INPUT DATA ARE LISTED ', 
1/, ' BELOW, VERIFY THAT THE DATA IS CORRECT. ' ,/) 

1013 0format(t21, 'xnl() ',t53,'xn2() ',/,t4, 'n' , til, 'REAL' ,t27, 

1 ' IMAGINARY ' ,t4 3, 'REAL' ,t59, 'IMAGINARY') 

1014 format (///,t21, 'INRJT DATA' ,//) 

1015 format (/,t21,a7,/,t6, 'n',tl3, 'REAL' ,t29, 'IMAGINARY') 

1016 f ormat (//////, ' INRJT DATA SOURCEFILE: ',al2) 

1017 0 format ( ' N1 = ' , i3 , 5x, 'dsrcel = \al,10x, 'N2 = ',i3,5x, 

1 ' dsrce2 = ' ,al) 

1018 format (lx, 'option = ',a4) 

1019 0format(/, ' TABULAR OUTPUT DATA IS STORED IN FILE: CONCORFT.OUT. ' 
1,/, ' PLOTTING DATA IS STORED IN FILE: CONOORFT.DAT. ') 

1020 format(t4,il,4(4x,el2.6) ) 

1025 f ormat (///, t2 0, 'OUTRJT DATA',//) 

1026 format(t4,i3,2(4x,el2.6) ) 

1115 0format(lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : ',\,) 

1116 0format(///, lx, 'ERROR OPENING INPUT FILE: ' ,al2,/, lx, 'PROGRAM' , 

1' TERMINATED. ' ,//,lx, 'ERROR CODE: ' ,i4, /////) 

1117 format (al) 
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1118 0 format (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED ' , 

1' BY <CR> . ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 
2' SAMPLE DATA ALREADY STORED',/, ' IN THE FILE: CONCORFT.TST' , 
3' TYPE: CONCORFT.TST <CR>' ,/, ' FILENAME: \\,) 

1119 format (al2) 

2000 format (il) 

2001 format (i3) 

2003 format (a20) 

2010 format(el2.6,2x,el2.6) 

end 



C SUBROUTINE: zeropad 



C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY xn() 
C OF LENGTH N, AND ZERO PADS THE ARRAY TO LENGTH N3 WHERE 
C N3 = N1 + N2 - 1. 



subroutine zeropad (xn,N,N3) 
complex xn(0:N3-l) 

do 33 i=N, N3-1 
xn(i) = atplx(0. 0,0.0) 

33 continue 

return 

end 



C SUBROUTINE: invfft 



C FURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 

C x ( ) , COMPUTES THE INVERSE FFT OF THE ARRAY, AND 

C RETURNS THE RESULTING SEQUENCE IN THE ARRAY x() . 



subroutine invfft (N,m,x) 
complex x(0:N-l) 

en = N 

C COMPUTE THE COMPLEX CONJUGATE OF THE INPUT DATA. 

do 70 i=0, N-l 
x(i) = conjg(x(i) ) 
continue 



70 
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C COMPUTE THE FAST FOURIER TRANSFORM OF THE ARRAY. 



call fft(N,m,x) 

C COMPUTE THE CCMPLEX CONJUGATE OF THE RESULTING ARRAY. 

do 80 i=0, N-l 
x(i) = conjg(x(i) )/en 
80 continue 

return 

end 



C 



SUBROUTINE: reversal 



C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY 

C xtmpQ . THE OUTPUT OF THIS SUBROUTINE IS THE COMPLEX 

C ARRAY X ( ) THAT CONTAINS THE INPUT VALUES IN BIT- 

C REVERSED ORDER. 



subroutine reversal (N , m, xtmp , x) 
complex xtmp(0:N-l) , x(0:N-l) 

do 10 k^O, N-l 
newaddr = 0 
maddr = k 
do 20 i=0, m-1 

lrmndr = mod (maddr, 2) 
newaddr = newaddr + lrmndr*2**(m-l-i) 
maddr = maddr/2 
20 continue 

x (newaddr) = xtmp(k) 

10 continue 

return 

end 



C SUBROUTINE: fft 



C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE COMPLEX ARRAY x() , 

C COMPUTES THE FAST FOURIER TRANSFORM (FFT) OF THE 

C ARRAY, AND RETURNS THE RESULTING SEQUENCE IN THE 

C ORIGINAL ARRAY x() . 



subroutine fft(N,m,x) 
complex x(0:N-l), W, tmp 
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pi = 4.0*atan(1.0) 
en = N 

do 50 L=l, m 
ispace - 2**L 
s = N/ ispace 
iwidth = ispace/ 2 
do 40 j=0, iwidth-1 
r = s*j 

alpha = 2.0*pi*r/en 
W = cmplx ( cos ( alpha ) , -sin (alpha) ) 
do 30 itop=j, N-2, ispace 
ibot = itop + iwidth 
tmp = x(ibot)*W 
x(ibot) = x(itop) - tup 
x(itop) = x(itop) + top 
30 continue 

40 continue 

50 continue 

return 

end 



C SUBROUTINE: sairpll 



C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 

C OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 

C xnl() . IF dsrcel = 'S' THEN THE MAIN PROGRAM WILL 

C CALL THIS SUBROUTINE TO GENERATE THE VALUES FOR 

C xnl() . IF dsrcel DOES NOT EQUAL 'S' THEN THIS 

C SUBROUTINE WILL NOT BE CALLED BY THE MAIN PROGRAM. 



subroutine sanpll(xnl,Nl) 
conplex xnl(0:Nl-l) 

pi = 4.0*atan(1.0) 
enl = N1 

Q*** **** ****************** ***** ********* **************** ******* ******* ** 

C DEVELOP THE SAMPLING ALGORITHM FOR xnl() IN THIS SPACE. THE 
C STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
C MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN() ,COS() . . . 

C AN EXAMPLE OF AN ALGORITHM GENERATING VALUES FOR xnl() IS: 

C 

C *** EXAMPLE *** 

C 
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c 

c 

C 6 



do 6 i=0, Nl-1 

xnl(i) = cnplx(l. 0,0.0) 
continue 



C* •k-k-k-k'k-k-k-k-k'k-k-k-k'k-k-k-k'k'k'k-k-k'k'k-k-k'k-k-k-k-k'k'k'k-k-k-k -kit ■k'k-k'k-k'k-k’k'k •k-k'k-k'k-k-k'k-k-k-k'k'k ****** 



return 

end 



C 



SUBROUTINE: saxnpl2 



C FURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 

C OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 

C xn2() . IF dsrce2 = 'S' THEN THE MAIN PROGRAM WILL 

C CALL THIS SUBROUTINE TO GENERATE THE VALUES FOR 

C xn2(). IF dsrce2 DOES NOT EQUAL 'S' THEN THIS 

C SUBROUTINE WILL NOT BE CALLED BY THE MAIN PROGRAM. 



subroutine sampl2 (xn2,N2) 
complex xn2(0:N2-l) 

pi = 4.0*atan(1.0) 
en2 = N2 



C* ****** **************************************************************** 

C DEVELOP THE SAMPLING ALGORITHM FOR xn2() IN THIS SPACE. THE 
C STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
C MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN() , COS ( ) . . . 

C AN EXAMPLE OF AN ALGORITHM GENERATING VALUES FOR xn2() IS: 

C 

C *** EXAMPLE *** 

C 

C do 7 i=0, N2-1 
C xn2(i) = cmplx(2.0,0.0) 

C 7 continue 

C*** ****** ************************************************************** 



return 

end 
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CONCOR.FOR 



VERSION: 2/03/88 



C 

C 

C 

C FURPOSE: 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



THIS PROGRAM PERFORMS EITHER THE LINEAR CONVOLUTION 
(LOON) OR THE LINEAR CORRELATION (LOOR) OF TWO ARRAYS 
OF INPUT DATA. THE PROGRAM CONSISTS OF A MAIN PROGRAM 
AND FOUR SUBROUTINES. THE SUBROUTINE convol PERFORMS 
THE CONVOLUTION OF THE TWO INPUT ARRAYS xnl() and xn2() 
AND STORES THE RESULTS IN THE OUTPUT ARRAY yn() . THE 
SUBROUTINE correl PERFORMS THE CORRELATION OF THE TWO 
ARRAYS xnl() AND xn2() ACCORDING TO THE EQUATION: 
Rxnlxn2 (p) = SUMfxnl (m) *xn2 (m+p) ] . THE TWO SUBROUTINES 
sampll AND SAMPL2 ALLOW THE USER THE OPTION OF 
GENERATING EITHER OF THE TWO INPUT ARRAYS BY WRITING 
THE APPROPRIATE EQUATIONS. IF THE USER CHOOSES TO 
GENERATE THE INPUT DATA BY USING EITHER OF THE sainpl 
SUBROUTINES, THE EQUATIONS MUST BE WRITTEN INTO THE 
SUBROUTINES USING STANDARD FORTRAN 77 EXECUTABLE STATE- 
MENTS AND THE VALUES GENERATED MUST BE STORED IN THE 
ARRAYS xnl() AND xn2() . THE USER HAS THE OPTION OF 
SELECTING ONE OF TWO OPERATING MODES: BATCH OR TEST. IN 
BATCH MODE THE AMOUNT OF INTERACTION WITH THE USER IS 
MINIMIZED AND IT IS ASSUMED THAT THE INPUT PARAMETERS 
HAVE BEEN STORED IN THE INPUT FILE 'CONCOR.IN' . IN 
TEST MODE THE USER IS PROMPTED FOR THE NAME OF THE 
INPUT FILE AND HAS THE OPTION TO PERFORM A TRIAL RUN 
USING THE DATA STORED IN THE FILE 'CONCOR.TST' . 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT THE 
TEST MODE AND PERFORM A TRIAL RUN WITH THE PRESTORED 
DATA. THE TEST MODE ECHOES PORTIONS OF THE INPUT 
DATA ONTO THE MONITOR TO ALLOW VERIFICATION OF ITS 
ACCURACY. THE OUTPUT OF THE PROGRAM 'CONCOR.FOR' IS 
STORED IN THE ARRAY yn() IF LINEAR CONVOLUTION (LCON) 

IS SELECTED OR IN THE ARRAY R() IF LINEAR CORRELATION 
(LCOR) IS SELECTED. THE OUTPUT IS STORED IN TABULAR 
FORM IN THE FILE 'CONCOR.OUT' AND IN A FORM SUITABLE 
FOR PLOTTING IN THE FILE 'CONCOR.DAT'. 



C******************************* INPUT ******************************* 



C 

C 

C THIS PROGRAM ASSUMES THAT THERE ARE TWO SEQUENCES OF INPUT DATA 
C STORED IN THE ARRAYS xnl() AND xn2() . THE SEQUENCE xnl() EXISTS 
C IN THE RANGE: nsl <= n <= nel. THE SEQUENCE xn2() EXISTS IN THE 
C RANGE: ns2 <= n <= ne2. THE CONSTRAINTS ON THESE VALUES ARE: 

C -128 <= nsl <= nel <= 128 AND -128 <= ns2 <= ne2 <= 128. 

C THIS PROGRAM ALLOWS THE USER THE OPTION OF EITHER READING 
C THE INPUT ARRAYS FROM A DATA FILE OR OF GENERATING THE INPUT 
C VALUES FROM AN ITERATIVE EQUATION IN THE sampl SUBROUTINE(S) . 

C THE PARAMETERS DESCRIBED BELOW ALLOW THE USER TO SELECT THE 
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c 

c 

c 

c 

c 

c 

c 



DESIRED OPTIONS AND THESE PARAMETERS MUST BE STORED IN THE INRJT 
FILE 'CONCOR.IN' . ALL OF THE READ STATEMENTS USED BY THIS 
PROGRAM REQUIRE FORMATTED INPUT. PARTICUIAR ATTENTION SHOULD BE 
PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 



c 

r* 


NAME 


TYPE 


RANGE (ARFtAYS) 


PRESTRICITONS 


c 


option 


CHAIRACIER 






'ICON' OR 'LCOR' 


c 


nsl 


INTEGER 






-128 <= nsl <= 128 


c 


nel 


INTEGER 






-128 <= nel <= 128 


c 


dsrcel 


CHARACTER 






'F' OR 'S' 


c 


ns2 


INTEGER 






-128 <= ns2 <= 128 


c 


ne2 


INTEGER 






-128 <= ne2 <= 128 


c 


dsrce2 


CHARACTER 






'F' OR 'S' 


c 


xnl (n) 


REAL 


nsl <= n 


<= nel 


nsl <= nel 


c 

r* 


xn2 (n' 


REAL 


ns2 <= n 


<= ne2 


ns2 <= ne2 


c 

r* 


WHERE: 










c 


option = 


A CHARACTER STRING OF 


POUR LETTERS DENOTING THE 


c 




COMPUTATION DESIRED: 


'LCON' 


= LINEAR CONVOLUTION 


c 

r* 








'LCOR' 


= LINEAR CORRELATION. 


c 


nsl = AN 


INTEGER VALUE 


THAT SPECIFIES ' 


THE STARTING SAMPLE POINT OF 


c 

n 


THE SEQUENCE xnl() . 






C 


nel = AN 


INTEGER VALUE 


THAT SPECIFIES 1 


THE ENDING SAMPLE POINT OF 


c 


THE SEQUENCE xnl() . 







C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



dsrcel = 



A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INFOT ARRAY xnl() IS TO BE READ FROM A FILE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 
THE SUBROUTINE sampll. 



ns2 = AN INTEGER VALUE THAT SPECIFIES THE STARTING SAMPLE POINT OF 
THE SEQUENCE xn2() . 

ne2 = AN INTEGER VALUE THAT SPECIFIES THE ENDING SAMPLE POINT OF 
THE SEQUENCE xn 2 ( ) . 

dsrce2 = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
INPUT ARRAY xn2() IS TO BE READ FROM A FILE (F) OR TO 
BE GENERATED (S) BY A USER-DEFINED EQUATION LOCATED IN 
THE SUBROUTINE saupl2. 

xnl() = THE FIRST ARRAY OF INPUT DATA. IF (dsrcel = 'F' IS 

SPECIFIED, THE USER MUST SUPPLY THE N1 INPUT VALUES IN 
THE FILE (WHERE N1 = nel - nsl + 1) . IF dsrcel = 'S' 

THEN THE USER HAS ELECTED TO GENERATE THE INPUT 
SEQUENCE xnl() BY WRITING THE APPROPRIATE FORTRAN 
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STATEMENTS IN THE SPACE ALLOCATED IN SUBROUTINE sampll. 
IF THIS METHOD OF DATA GENERATION IS ELECTED THE PROGRAM 
MUST BE RECOMPILED BEFORE EXECUTION. 



C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



xn2() = THE SECOND ARRAY OF INPUT DATA. IF dsrce2 = 'F' IS 

SPECIFIED, THE USER MUST SUPPLY THE N2 INPUT VALDES IN 
THE FILE (WHERE N2 = ne2 - ns2 + 1) . IF dsrce2 = 'S' 
THEN THE USER HAS ELECTED TO GENERATE THE INPUT 
SEQUENCE xn2() BY WRITING THE APPROPRIATE FORTRAN 
STATEMENTS IN THE SPACE ALLO CATED IN SUBROUTINE sainpl2. 
IF THIS METHOD OF DATA GENERATION IS ELECTED THE PROGRAM 
MUST BE RECOMPILED BEFORE EXECUTION. 



NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********* 
THE FORM OF THE INPUT DATA FILE IS: 



LINE# 



ENTRIES 



FORMAT 



1 

2 

3 

NCTE1 

NCTE2 



option 

nsl , nel , dsrcel 
ns2 , ne2 , dsrce2 
xnl() 
xn2 () 



a4 

i4 , til , i4 , t2 1 , al 
i4,tll,i4,t21,al 
flO.O 
flO.O 



NOTES 1. IF dsrcel = 'F' THEN THE NEXT N1 TINES MUST CONTAIN 
THE VALDES TO BE READ INTO THE ARRAY xnl() . 

IF dsrcel = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALDES FOR xnl() IN THE SUBROUTINE sampll. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampll TO GENEP&TE xnl ( ) . 



2. IF dsrce2 = 'F' THEN THE NEXT N2 LINES CONTAIN THE 
VALDES TO BE READ INTO THE ARRAY xn2() . 

IF dsrce2 = 'S' THEN THE USER HAS ELECTED TO GENERATE 
THE VALDES FOR xn2() IN THE SUBROUTINE sampl2. THE 
USER MUST PROVIDE THE APPROPRIATE FORTRAN STATEMENTS 
IN SUBROUTINE sampl2 TO GENERATE THE ARRAY xn2() . 



3. THE FORMAT flO.O USED FOR INPUT DATA PERMITS THE 

DECIMAL POINT TO BE PIACED ANYWHERE IN THE FIELD OF TEN 
COLUMNS AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE 
USED (E.G. , 3146.2 = 3.1462E+03). 



Q^ii-k-k-k-k'k-k'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k OUTPUT ^^^^ m k m k‘k‘k-k m k m k m k-k m k m k'k-k-k-k-k-k-k‘k m k‘k-k-k-k‘k'k-k 



c 

c 

C THE OUTPUT SEQUENCE GENERATED BY THE PROGRAM WILL EXIST ONLY OVER 
C THE NON-ZERO RANGE DETERMINED AS FOLLOWS: FOR option = 'ICON' 
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C yn(n) EXISTS IN THE RANGE nsl + ns2 <= n <= nel + ne2; FOR option = 

C 'LCOR' R(p) EXISTS IN THE RANGE ns2 - nel <= p <= ne2 - nsl. THE 
C INFUT DATA AS WELL AS THE OUTHJT DATA ARE STORED IN TABULAR FORM 
C IN THE FILE 'CONCOR.OUT' . ADDITIONALLY, THE INRJT SEQUENCES AND 
C THE OUTHJT SEQUENCE ARE WRITTEN INTO THE FILE 'CONCOR.DAT' TO 
C FACILITATE PLOTTING BY A SEPARATE, USER SUPPLIED PROGRAM. THE 
C FORMAT OF THE DATA IN 'CONCOR.DAT' IS: el2.6, 2x, el2.6. THE 
C FIRST ENTRY CORRESPONDS TO THE ORDINATE VALUE AND THE SECOND ENTRY, 

C THE ABSCISSA VALUE. ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 
C 'CONCOR.DAT' TO ALLOW FOR CONTROL AND LABELING OF EACH PLOT. 

C 

C 

( 2 ****************************** EXAMPLE ****************************** 



c 

c 

C THE INRJT PARAMETERS BELOW ARE STORED IN THE INRJT FILE 
C 'CONCOR.TST . THE PROGRAM READS THE FIRST 4 VALUES INTO xnl() 

C (dsrcel = 'F') , AND READS THE NEXT 5 VALUES INTO xn2() (dsrce2 = 
C 'F') . THE GOAL IS TO COMPUTE THE LINEAR CONVOLUTION OF THE 
C TWO INRJT ARRAYS. 

C 

C THE SEQUENCE xnl() EXTENDS FROM -3 TO 0 (nsl = -3, nel = 0) . 

C xnl(n) - 1.0 FOR nsl <= n <= nel 
C = 0.0 OTHERWISE 

C 

C THE SEQUENCE xn2() EXTENDS FROM 0 TO 4 (ns2 = 0, ne2 = 4) . 

C xn2 (n) = rtfl FOR ns2 <= n <= ne2 
C =0.0 OTHERWISE 

C 

C THE APPROPRIATE INRJT FILE ENTRIES ARE: 

C 

C ICON 

C -3 0000 F 

C 0000 0004 F 

C 1.0 
C 1.0 
C 1.0 
C 1.0 
C 1.0 
C 2.0 
C 3.0 
C 4.0 
C 5.0 
C 
C 

C THE RESULTING OUTPUT DATA FILE 'CONCOR.OUT' IS: 

C 

C INPUT DATA SOURCEFILE: CONCOR.TST 
C nsl = -3 nel = 0 dsrcel = F 

C ns2 = 0 ne2 = 4 dsrce2 = F 

C option = LOON 
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INPUT DATA 



C 

C 

c 



c 


n 


xnl(n) 


c 






c 


-3 


. 100000E+01 


c 


-2 


. 100000E+01 


c 


-1 


. 100000E+01 


c 


0 


. 100000E+01 


c 






c 


n 


xn2 (n) 


c 






c 


0 


. 100000E+01 


c 


1 


.200000E+01 


c 


2 


. 300000E+01 


c 


3 


.400000E+01 


c 


4 


. 500000E+01 


c 






c 






c 


OUTPUT 


1 DATA 


c 






c 


n 


yn(n) 


c 






c 


-3 


. 100000E+01 


c 


-2 


. 300000E+01 


c 


-1 


. 600000E+01 


c 


0 


. 100000E+02 


c 


1 


. 140000E+02 


c 


2 


. 120000E+02 


c 


3 


. 900000E+01 


c 


4 


. 500000E+01 



c 

c 



C NOTE: FOR ILLUSTRATIVE HJRPOSES THE INPUT SEQUENCES xnl() 

C AND xn2() COUID HAVE BEEN GENERATED BY WRITING THE 

C APPROPRIATE STATEMENTS IN SUBROUTINES saitpll AND 

C AND sampl2. THE STATEMENTS THAT COUID BE USED TO 

C ACCOMPLISH THIS ARE WRITTEN INTO THE SUBROUTINES BUT 

C ARE 'COMMENTED OUT' . 

C 

c 



( 2 **************** *********** MAIN PROGRAM **************************** 



character infile* 12, option*4, mode*l, dsrcel*l, dsrce2*l 
character ylabl*5, title*18, xlabl*12 

real xnl(-128:128) ,xn2 (-128:128) , yn(-256:256) , R(-256:25S) 
real nn 
integer p 
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C PROMPT USER FOR MODE: BATCH OR TEST. 



write (*, 1115) 
read (*,1117) mode 

if ( (mode.eq. 'y' ) .or. (mode.eq. 'Y' ) ) then 
mode = ' Y ' 
write (*, 1118) 
read (*,1119) infile 
else 

infile = , CONCOR.IN , 
endif 

C UNIT=1 DEFINED AS INHJT FILE. UNTIS=2,3 DEFINED AS OUTHJT FILES 

open (unit=l , f ile=inf ile, status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= 1 CONCOR. OUT ' ) 
open (unit=3 , file= ' OONCOR. DAT ' ) 

C READ INFUT PARAMETERS AND CONDUCT ERROR CHECKS. 

read ( 1 , 1000 ) option 

read (1,1001) nsl, nel, dsrcel 

read (1,1001) ns2, ne2, dsrce2 

if ( (option. eq. 1 Icon ' ) . or. (option. eq. ' ICON ' ) ) then 
option = 'ICON' 
ylabl = 'yn(n) ' 
xlabl = 'SAMPLE # (n) ' 
title = 'Linear Convolution' 
ns3 = nsl + ns2 
ne3 = nel + ne2 

elseif ( (option. eq. ' lcor ' ) .or. (option. eq. ' LCOR ' ) ) then 
option = 'LCOR' 
ylabl = 'R(p) ' 
xlabl = ' SAMPLE # (p) ' 
title = 'Linear Correlation' 
ns3 = ns2 - nel 
ne3 = ne2 - nsl 
else 

write (*,1011) option 

stop 'The allowed values for option are: ' 'ICON' ' or ' 'LCOR' ' . 
endif 

if ( (nsl.lt. -128) .or. (nsl. gt. 128) ) then 
write (*,1010) 'nsl = ', nsl 

stop 'The allowed values for nsl are: -128 <= nsl <= 128.' 

elseif ( (ns2.lt. -128) .or. (ns2.gt.128) ) then 
write(*,1010) 'ns2 = ', ns2 

stop 'The allowed values for ns2 are: -128 <= ns2 <= 128. ' 
endif 
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if ( (nel.lt. -128) .or. (nel.gt.128) ) then 
write (*, 1010) 'nel = ' , nel 

stop "The allowed values for nel are: -128 <= nel <= 128.' 

elseif ( (ne2.lt. -128) .or. (ne2.gt.128) ) then 
write (*, 1010) 'ne2 = ' , ne2 

stop "The allowed values for ne2 are: -128 <= ne2 <= 128. ' 
endif 

if (nel.lt.nsl) then 

write(*, 1120) 'nsl = ', nsl, 'nel = 1 , nel 
stop 'The value nel must be greater than or equal to nsl. ' 
endif 

if (ne2.lt. ns2) then 

write (*, 1120) 'ns2 = ', ns2, 'ne2 = ', ne2 
stop 'The value ne2 must be greater than or equal to ns2. ' 
endif 



if ( (dsrcel.eq. ' f ' ) .or. (dsrcel.eq. ' F ' ) ) then 
dsrcel - 'F' 

elseif ( (dsrcel.eq. 's' ) .or. (dsrcel.eq. 'S' ) ) then 
dsrcel = 'S' 
else 

write (*, 1009) 'dsrcel = ', dsrcel 

stop "The allowed values for dsrcel are: ' ' F ' ' or ' 'S' ' . ' 
endif 

if ( (dsrce2.eq. ' f ' ) .or. (dsrce2.eq. 'F' ) ) then 
dsrce2 = 'F' 

elseif ( (dsrce2 . eq. ' s ' ) . or . (dsrce2 . eq. ' S ' ) ) then 
dsrce2 = 'S' 
else 

write (*, 1009) 'dsrce2 = ', dsrce2 

stop 'The allowed values for dsrce2 are: ' ' F ' ' or ' 'S' ' . ' 
endif 



C DEFINE CONSTANTS ACCORDING TO THE FOLLOWING SCHEME: 

C N1 = THE NUMBER OF SAMPLES IN THE SEQUENCE xnl() . 

C N2 = THE NUMBER OF SAMPLES IN THE SEQUENCE xn2( ) . 

C N3 = THE NUMBER OF SAMPLES IN THE OUTPUT SEQUENCE. 

C k = A DUMMY VARIABLE USED FOR WRITING THE OUTHJT TO THE MONITOR. 

C numplts - A CONTROL PARAMETER FOR THE DATA STORED IN 'CONCOR.DAT' . 

N1 = nel - nsl + 1 
N2 = ne2 - ns2 + 1 
N3 = ne3 - ns3 + 1 
k = 8 

numplts = 3 
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C FOR dsrce# = 'F' READ INRJT DATA FROM THE DATA FILE. 

C FOR dsrce# = 'S' CALL sairpl# TO GENERATE THE INRJT DATA. 
C THE INRJT DATA IS STORED IN THE ARRAYS xnl() , xn2() . 

if (dsrcel.eg. 'F' ) then 
read(l,1002) (xnl(i) , i=nsl,nel) 
else 

call sampll(nsl,nel,xnl) 
endif 

if (dsrce2 . eq. ' F ' ) then 
read(l,1002) (xn2(i) ,i=ns2,ne2) 
else 

call sampl2 (ns2,ne2,xn2) 
endif 



C FOR TEST MODE ECHO INRJT DATA ONTO MONITOR (UNIT = *) . 

if (mode. eq. 'Y' ) then 
write (*, 1016) infile 

if ((Nl.lt. 8) .or. (N2.lt. 8)) k=min(Nl,N2) 

write(*, 1017) 'nsl = ' ,nsl, 'nel = ',nel, 'dsrcel = ' , dsrcel 

write (*, 1017) 'ns2 = ' , ns2, 'ne2 = ',ne2, 'dsrce2 = ',dsrce2 

write ( * , 1018 ) option 

write (*,1012) k 

write (*, 1013) 

indxl = nsl 

indx2 = ns2 

do 3 i=0, k-1 

write(*,1020) indxl, xnl(indxl), indx2, xn2(indx2) 
indxl = indxl+1 
indx2 = indx2+l 
3 continue 

endif 

C WRITE THE INRJT SEQUENCES INTO FILE: COhCOR.DAT. 

write (3,2000) numplts 
write (3, 2001) N1 

write ( 3 , *) ' INRJT SEQUENCE xnl (n) ' 
write(3, *) 'SAMPLE # (n) ' 
write (3,*) 'xnl(n) ' 
do 55 n=nsl, nel 
nn = n 

write (3, 2010) nn, xnl(n) 

55 continue 

write (3, 2001) N2 

write (3,*) 'INRJT SEQUENCE xn2(n) ' 
write (3,*) 'SAMPLE # (n) ' 
write(3,*) 'xn2(n)' 
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56 



do 56 n=ns2, ne2 
nn = n 

write (3, 2010) nn, xn2(n) 
continue 

C WRITE INRJT DATA INTO FILE: CONCOR.OUT. 
write (2, 1016) infile 

write(2, 1017) 'nsl = ',nsl, 'nel = ',nel, 'dsrcel = ',dsrcel 
write(2, 1017) 'ns2 = ',ns2, 'ne2 = ',ne2, 'dsrce2 - 1 , dsrce2 
write ( 2 , 10 18 ) option 
write (2 ,1025) 'INRJT' 
write(2, 1015) 'n', 'xnl(n) ' 
do 4 n=nsl, nel 
write(2, 1026) n, xnl(n) 

4 continue 

write(2, 1015) 'n', 'xn2(n) ' 
do 5 n=ns2, ne2 
write(2,1026) n, xn2(n) 

5 continue 

C IF option = 'ICON' CALL convol TO PERFORM CONVOLUTION COMPUTATION. 

if (option. eq. ' ICON ' ) then 
call convol ( nsl, Nl,ns2,N2,ns3,ne3,xnl,xn2,yn) 

C IF option = ' LCOR' CALL correl TO PERFORM CORRELATION COMPUTATION. 

else 

call correl (nsl, nel,ns2 , ne2 , ns3 , ne3 , xnl, xn2 ,R) 
endif 

C WRITE RESULTS INTO FILE: C0NC0R.DAT. 

write (3, 2001) N3 
write ( 3 , 2003 ) title 
write (3, 2004) xlabl 
write (3, 2005) ylabl 
do 57 n=ns3, ne3 
nn = n 

if (option. eq. 'ICON' ) then 
write (3, 2010) nn, yn(n) 
else 

write(3,2010) nn, R(n) 
endif 

57 continue 
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C WRITE RESULTS INTO FILE: CONCOR.OOT. 



if (option. eq. 1 LOON ' ) then 
write (2 ,1025) 'CUTRJT' 
write(2,1015) 'n', ylabl 
do 9 n=ns3, ne3 

write(2, 1026) n, yn(n) 

9 continue 

else 

write (2, 1025) 'OUTPUT' 
write (2, 1015) 'p', ylabl 
do 11 p=ns3, ne3 

write(2,1026) p, R(p) 

11 continue 

endif 

write(* ; 1019) 

999 close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.0) then 
write(*, 1116) infile, ierr 
endif 

C ******** INPUT FORMAT ******** 

1000 format (a4) 

1001 format (i4, til, i4 ,t21,al) 

1002 format ( f 10 . 0 ) 

Q ******************************** 

1009 format(lx,al0,al, ' Error, value not allowed.') 

1010 format(lx,a6,i4,2x, 'Error, value not allowed.') 

1011 format (lx, 'option = ' ,a4,2x, 'Error, illegal value for option.') 

1012 0format(/, ' THE FIRST ',il, ' VALUES OF INPUT DATA ARE LISTED ', 
1/, ' BELOW, VERIFY THAT THE DATA IS CORRECT. ' ,/) 

1013 format (t7, 'n',tl2, 'xnlQ ',t28, 'n' ,t33, 'xn2() ') 

1015 format (/,t7,al,tl4,a6,/) 

1016 format (///, ' INHJT DATA SOURCEFILE: ',al2) 

1017 format ( lx , a6 , i4 , 3x , a6 , i4 , 3x, a9 , al) 

1018 format (lx, 'option = ',a4) 

1019 0 format (//, ' TABULAR OUTPUT DATA IS STORED IN FILE: CONCOR.OOT. ', 
1/, ' PLOTTING DATA IS STORED IN FILE: CONCOR.DAT. ') 

1020 format ( t4 , i4 , tlO , elO . 4 , t25 , i4 , t3 1 , elO . 4 ) 

1025 format (///,t7,a6, ' DATA',/) 

1026 format ( t4 , i4 , tl2 , el2 . 6 ) 

1115 0format(lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : ',\, ) 
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1116 Oformat(///,lx, 'ERROR OPENING INPUT FILE: ',al2,/,lx, 'PROGRAM', 
1' TERMINATED. ' ,//, lx, 'ERROR CODE: ' , i4, /////) 



1117 


format (al) 




1118 


Oformat (///// , lx, 'TYPE THE NAME OF YOUR EATA FILE FOLLOWED' 
1' BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE 




2' SAMPLE DATA ALREADY STORED' ,/, ' IN THE FILE: 


CONCOR.TST' 




3' TYPE: CONCOR.TST <CR>' ,/, ' FILENAME: 


'A,) 


1119 


format (al2) 




1120 


format(2x,a6,i4,5x,a6,i4,5x, 'Error. ') 




2000 


format (il) 




2001 


format (i3) 




2003 


format (al8) 




2004 


format (al2) 




2005 


format (a5) 




2010 


format (e!2 . 6, 2x, el2 . 6) 





end 

C SUBROUTINE: convol 



C PURPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE ARRAYS xnl() and 
C xn2() , COMPUTES THE LINEAR CONVOLUTION OF THE ARRAYS, 
C AND RETURNS THE RESULTING SEQUENCE IN THE ARRAY yn() . 



subroutine convol (nsl , N1 , ns2 , N2 , ns3 , ne3 , xnl , xn2 , yn) 
real xnl (-128: 128) , xn2(-128:128) , yn(-256:256) 

j = 0 

do 10 n=ns3, ne3 
yn(n) = 0.0 
do 20 i=j, 0, -1 

if ( (j-i.lt.N2) .and. (i.lt.Nl) ) then 

yn(n) = yn(n) + xn2(ns2+j-i)*xnl(nsl+i) 
endif 

20 continue 

j = j + 1 

10 continue 

return 

end 
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o o o o 



c 



SUBROUTINE: correl 



RJRPOSE: THIS SUBROUTINE ACCEPTS AS INPUT THE ARRAYS xnl() AND 

xn 2() , AND COMPUTES THE LINEAR CORRELATION OF THE ARRAYS 
BY THE FORMULA R(p) = SUM[xnl (n) *xn2 (rH-p) ] FOR 
ns3 <= p <= ne3. 



subroutine correl (nsl , nel , ns2 , ne2 , ns3 , ne3 , xnl , xn2 , R) 
real xnl (-128: 128) , xn2(-128:128) , R(-256:256) 
integer p 

j = 0 

do 30 p=ns3, ne3 
R(p) =0.0 
do 40 i=j, 0, -1 
indexl = nel-j+i 
index2 = ns2+i 

if ( ( indexl. ge. nsl) .and. (index2.1e.ne2) ) then 
R(p) = R(p) + xnl ( indexl ) *xn2 (index2) 
endif 

40 continue 

j = j + 1 
30 continue 

return 

end 



C SUBROUTINE: sampll 



C EURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 

C OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 

C xnl() . IF dsrcel = 'S' THEN THE MAIN PROGRAM WILL CALL 

C THIS SUBROUTINE TO GENERATE THE VAHJES FOR xnl() . 

C IF dsrcel DOES NOT EQUAL 'S' THEN THIS SUBROUTINE WILL 

C NOT BE C AT .TED BY THE MAIN PROGRAM. 



subroutine sampl 1 ( nsl , nel , xnl ) 
real xnl (-128: 128) 

Q-k-k-k *********** ********************************************************* 



C DEVELOP THE SAMPLING ALGORITHM FOR xnl() IN THIS SPACE. THE 
C STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
C MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN() ,COS() . . . 

C AN EXAMPLE OF AN ALGORITHM GENERATING VALUES FOR xnl() IS SHOWN. 
C 
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c *** EXAMPLE *** 

C 

C do 6 n=nsl, nel 

C xnl(n) =1.0 

C 6 continue 



C*** ****** ************************************************************** 



return 

end 



C SUBROUTINE: sampl2 



C KJRPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE SAMPLES 

C OF A CONTINUOUS FUNCTION AND STORE THEM IN THE ARRAY 

C xn2 () . IF dsrce2 = 'S' THEN THE MAIN PROGRAM WILL CALL 

C THIS SUBROUTINE TO GENERATE THE VALUES FOR xn2 () . 

C IF dsrce2 DOES NOT EQUAL 'S' THEN THIS SUBROUTINE WILL 

C NOT BE C ALLED BY THE MAIN PROGRAM. 



subroutine sampl2 (ns2 ,ne2 ,xn2) 
real xn2(-128:128) 

C***** ****************************************************************** 



C DEVELOP THE SAMPLING ALGORITHM FOR xn2() IN THIS SPACE. THE 
C STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
C MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN() ,COS() . . . 

C AN EXAMPLE OF AN ALGORITHM GENERATING VAIDES FOR xn2() IS SHOWN. 

C 

c *** EXAMPLE *** 

C 

C do 7 n=ns2, ne2 

C xn2(n) = n + 1.0 

C 7 continue 

(2^'k‘k‘k‘k‘k‘k'k'k‘k'k'k‘k'k'k'k'k'k'k **************************************************** 



return 

end 



251 



DIFFEQ.POR 



VERSION: 2/03/88 



C 

C 

C 

C PURPOSE: 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



THIS PROGRAM COMPUTES THE ITERATIVE SOLUTION TO A 
LINEAR, TIME-INVARIANT (LIT) DIFFERENCE EQUATION. 

THE DIFFERENCE EQUATION MUST BE IN THE FORM: 
y(ns) = a(l)*y(ns-l) + ... + a(N)*y(ns-N) + 

b(0)*x(ns) + b(l)*x(ns-l) + ... + b(L) *x(ns-L) . 
THE PROGRAM CONSISTS OF A MAIN PROGRAM AND TOO 
SUBROUTINES. SUBROUTINE diffeq IS CALLED BY THE MAIN 
PROGRAM TO ITERATIVELY SOLVE THE DIFFERENCE EQUATIONS AND 
SUBROUTINE xgen ALLOWS THE USER THE OPTION OF GENERATING 
THE INPUT SEQUENCE x() BY WRITING THE APPROPRIATE 
EQUATIONS. IF THE USER ELECTS TO GENERATE THE SEQUENCE 
X ( ) BY USING xgen THEN THE PROGRAM MUST BE COMPILED 
AGAIN BEFORE EXECUTION. THE USER HAS THE OPTION OF 
SELECTING ONE OF TOO OPERATING MODES: BATCH OR TEST. 

IN BATCH MODE THE AMOUNT OF INTERFACE WITH THE USER 
IS MINIMIZED AND IT IS ASSUMED THAT THE INPUT DATA 
HAS BEEN STORED IN THE DEFAULT FILE 'DIFFEQ. IN' . IN 
TEST MODE THE USER IS PROMPTED FOR THE NAME OF THE 
INPUT FILE OR HAS THE OPTION OF PERFORMING A TEST RUN 
USING THE INPUT DATA STORED IN THE FILE ' DIFFEQ. TST' . 

IT IS RECOMMENDED THAT FIRST-TIME USERS SELECT THE 
TEST MODE AND MAKE A TRIAL RUN WITH THE PRESTORED 
INPUT DATA. THE TEST MODE ECHOES PORTIONS OF THE 
INPUT DATA ONTO THE MONITOR TO ALLOW VERIFICATION OF 
ITS ACCURACY. BOTH BATCH AND TEST MODES ALLOW THE 
USER TO SOLVE UP TO POUR DIFFERENCE EQUATIONS IN A 
SINGLE PROGRAM EXECUTION. THE OUTPUT OF THE PROGRAM 
'DIFFEQ. FOR' IS STORED IN THE ARRAY y() . THE OUTPUT IS 
STORED IN TABULAR FORM IN THE OUTPUT FILE 'DIFFEQ. FOR' 

AND IN A FORM SUITABLE FOR PLOTTING IN THE FILE 
'DIFFEQ.DAT' . 



C****************************** INPUT ******************************** 



C 

C 

C THIS PROGRAM ASSUMES THAT EACH DIFFERENCE EQUATION IS IN THE 
C CANONICAL FORM: 

C 

C y(ns) = a(l)*y(ns-l) + ... + a(N)*y(ns-N) + 

C b(0) *x(ns) + b(l) *x(ns-l) + ... + b(L)*x(ns-L) 

C 

C L = A NON-NEGATIVE INTEGER, THE NUMBER OF INPUT DELAYS . 

C N = A NON-NEGATIVE INTEGER, THE NUMBER OF OUTPUT DELAYS. 

C 

C a(l) . . .a(N) = REAL COEFFICIENTS OF THE OUTPUT TERMS. 

C b(0) . . .b(L) = REAL COEFFICIENTS OF THE INPUT TERMS. 

C 
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C THE INPUT PARAMETERS SHOULD BE STORED IN A FILE NAMED 
C 'DIFFEQ.IN' . ALL OF THE READ STATEMENTS USED BY THIS PROGRAM 
C REQUIRE FORMATTED INPUT. PARHCUIAR ATTENTION SHOUID BE PAID 
C TO THE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT TO 
C DENOTE 'REAL' NUMBERS. THE INPUT PARAMETERS REQUIRED BY THE 
C PROGRAM ARE LISTED BELOW. 

C 

C 



c 

r* 


NAME 


TYPE 


RANGE 


(ARRAYS) 




RESTRICTIONS 


c 


numsys 


INTEGER 






1 


<= numsys <= 4 


c 


L 


INTEGER 








0 <= L <= 128 


c 


N 


INTEGER 








0 <= N <= 128 


c 


nstop 


INTEGER 






0 


<= nstop <= 300 


c 


xsorce 


CHARACTER 








'F' OR 'S' 


c 


b(k) 


REAL 


0,1, 


. . . , Li 




0 <= L <= 128 


c 


a(k) 


REAL 


1,2, 


..., N 




0 <= N <= 128 


c 


Y(k) 


REAL 


-N, . 


.., -1 




1 <= N <= 123 


c 


x(ns) 


REAL 


0,1, 


. , nstop 


0 


<= nstop <= 300 



C 

C WHERE: 

C 

C numsys = THE NUMBER OF SYSTEMS TO BE EVALUATED. 

C THIS INTEGER VALUE MUST OCCUR AT THE TOP OF THE INPUT 

C FILE. IT DELINEATES THE NUMBER OF SYSTEMS TO BE READ BY 

C THE PROGRAM AND ANALYZED. FOR EACH SYSTEM (1. . .numsys) 

C THE PARAMETERS BELOW MUST APPEAR IN THE INPUT FILE. 

C 

C L = AN INTEGER VALUE THAT SPECIFIES THE MAXIMUM NUMBER OF DELAYS 
C IN THE INPUT SEQUENCE. 

C 

C N = AN INTEGER VALUE THAT SPECIFIES THE MAXIMUM NUMBER OF DELAYS 
C IN THE OUTPUT SEQUENCE. 

C 

C nstop = AN INTEGER VALUE THAT SPECIFIES THE LARGEST TIME INDEX 
C (ns) FOR WHICH THE DIFFERENCE EQUATION IS TO BE SOLVED. 

C 

C xsorce = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE 
C INPUT SEQUENCE x() IS TO BE READ FROM THE INPUT FILE (F) 

C OR TO BE GENERATED (S) USING THE SUBROUTINE xgen. THIS 

C LATER OPTION IS ATTRACTIVE WHEN nstop IS A LARGE NUMBER 

C AND THE INPUT SEQUENCE x() CAN BE READILY DESCRIBED BY AN 

C ANALYTICAL EXPRESSION. IF xsorce = 'S' THE USER MUST 

C PROVIDE THE APPROPRIATE FORTRAN STATEMENTS IN THE SPACE 

C PROVIDED IN SUBROUTINE xgen AND THE PROGRAM MUST BE 

C RECOMPILED BEFORE EXECUTION. 

C 

C b(k) = REAL COEFFICIENTS OF THE INPUT SEQUENCE x(ns-k) IN THE 
C ORDER: b(0) , b(l) , ..., b(L) . 

C 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



a(k) = REAL COEFFICIENTS OF THE OUTPUT SEQUENCE y(ns-k) IN THE 

ORDER: a(l) , a(2) , a(N) . IF N = 0 THEN THE EQUATION 

IS NON-RECURSIVE AND NO a(k) COEFFICIENTS SHOULD BE IN 
THE INPUT FILE. 

y(k) = THE INITIAL CONDITIONS FOR THE OUTRJT SEQUENCE IF THE 
DIFFERENCE EQUATION IS RECURSIVE, I.E., N > 0. THIS 
PROGRAM CALCULATES THE SOLUTION TO THE DIFFERENCE 
EQUATION FROM ns = 0 TO ns = nstop THEREFORE THE INITIAL 
CONDITIONS y(-N) TO y(-l) MUST BE PROVIDED IN THE INPUT 
FILE IN THE ORDER: y(-N) , y(-N+l) , ... , y(-l) . IF N = 0 
THEN THE EQUATION IS NON-RECURSIVE AND NO INITIAL 
CONDITIONS SHOULD BE GIVEN IN THE INPUT FILE. 

X(ns) = THE INPUT SEQUENCE. IF XSOrce = 'F' THEN THE INPUT 

SEQUENCE X(0) , . . . , X (nstop) MUST BE PROVIDED BY THE USER 
IN THE INPUT FILE. IF xsorce = 'S' THEN THE USER HAS 
ELECTED TO GENERATE THE INPUT SEQUENCE BY PROVIDING THE 
APPROPRIATE FORTRAN STATEMENTS IN THE SUBROUTINE xgen. 

NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********* 
THE FORM OF THE INPUT DATA FILE IS: 



LINE # 




ENTRIES 


FORMAT 


1 




numsys 


il 


2 




L , N , nstop , xsorce 


i3, til, i3 , t21, i3 , t31,al 


NEXT NB 


LINES 


b(k), k=0, 1, — ,L 


6f 10 . 0 


NEXT NA 


LINES 


a(k) , k=l, . . . ,N 


6f 10 . 0 


NEXT NY 


LINES 


y(k) , k= -N, . . . , -1 


6fl0. 0 


NEXT NX 


LINES 


x(ns) , ns= 0 ,..., nstop 


6fl0. 0 


WHERE: NB = 1 + 


(1/6 ROUNDED DOWN TO THE 


NEXT SMALLER INTEGER) 



NA = 0 IF N = 0 OR 

NA = 1 + ( (N-l) /6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) 
NY = 0 IF N = 0 OR 

NY = 1 + ( (N-l) / 6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) 
NX = 0 IF xsorce = 'S' OR 

NX = 1 + (nstop/ 6 ROUNDED DOWN TO THE NEXT SMALLER INTEGER) 
IF xsorce = 'F' 

*NCTE: FOR numsys > 1 THE FORMAT OF LINES 2. . . IS REPEATED. 

THE FORMAT flO.O USED FOR INPUT DATA PERMITS THE DECIMAL 
POINT TO BE PLACED ANYWHERE IN THE FIELD OF 10 COLUMNS 
AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (EG. 
3146.2 = 3 . 1462E+03) . 
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c 

C****************************** output ****************************** 



c 

c 

C THE INRJT DATA AS WELL AS THE OUTRJT DATA ARE STORED IN TABULAR 
C FORM IN THE FTLE 'DIFFEQ.OUT' . ADDITIONALLY, THE INRJT SEQUENCE 
C AND THE OUTRJT SEQUENCE ARE WRITTEN INTO THE FILE 1 DIFFEQ.DAT 1 TO 
C FACILITATE PLOTTING BY A SEPARATE, USER SUPPLIED PROGRAM. THE 
C FORMAT OF THE DATA IN 'DIFFEQ.DAT' IS: el2.6, 2X, el2.6. THE FIRST 
C ENTRY CORRESPONDS TO THE ORDINATE VAIUE, AND THE SECOND ENTRY, THE 
C ABSCISSA VALUE. ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 
C 'DIFFEQ.DAT' TO ALLOW FOR CONTROL AND IABELING OF EACH PLOT. 

C 

C 

0****************************** EXAMPLE ****************************** 



C 

C 

C THE INRJT PARAMETERS FOR THE SYSTEM DESCRIBED BELOW ARE STORED IN 
C THE SAMPLE INPUT FILE 'DIFFEQ.TST' AND CAN BE USED FOR A TRIAL 
C RUN IN TEST MODE. 

C 

C DIFFERENCE EQUATION: 

C 

C y(ns) = 1.2*y(ns-l) + 1.5*x(ns) 

C 

C GOAL: TO OBTAIN THE SOLUTION TO THIS DIFFERENCE EQUATION FOR 

C ns = 0 TO ns = 10, GIVEN: X(0)...X(10) = 100.0 AND 

C THE INITIAL CONDITION y(-l) = 25.0. 

C 
C 

C THE INFUT FILE IS: 

C 

C 1 

C 000 001 010 

C 1.5 

C 1.2 

C 25.0 

C 100.0 100.0 100.0 

C 100.0 100.0 100.0 

c 
c 

C THE RESULTING OUTRJT FILE 'DIFFEQ.OUT' IS: 

C 

C INPUT DATA FOR PROBLEM # 1 

C 

C PROBLEM # 1 INPUT DATA SOURCEFILE: DIFFEQ.TST 
C THE NUMBER OF INPUT DELAYS: L = 0 

C THE NUMBER OF OUTPUT DELAYS: N = 1 

C THE VALUE OF nstop IS: 10 



F 



100.0 100.0 100.0 

100.0 100.0 
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b(L) ARE: 



C THE COEFFICIENTS b(0) , b(l) , 

C 

C . 150000E+01 
C 
C 

C THE COEFFICIENTS a(l) , . .., a(N) ARE: 

C 

C . 120000E+01 

C 

C 

C OUTPUT DATA FOR PROBLEM # 1 

C 



c 


ns 


x(ns) 


y(ns) 


c 


-1 


. 000000E+00 


. 250000E+02 


c 


0 


. 100000E+03 


. 180000E+03 


c 


1 


. 100000E+03 


. 366000E+03 


c 


2 


. 100000E+03 


. 589200E+03 


c 


3 


. 100000E+03 


.857040E+03 


c 


4 


. 100000E+03 


. 117845E+04 


c 


5 


. 100000E+03 


. 156414E+04 


c 


6 


. 100000E+03 


. 202697E+04 


c 


7 


. 100000E+03 


. 258236E+04 


c 


8 


. 100000E+03 


•324883E+04 


c 


9 


. 100000E+03 


. 404860E+04 


c 


10 


. 100000E+03 


. 500832E+04 



C 

C END OF PROBLEM # 1 

C 

C 

C FOR ILLUSTRATIVE PURPOSES THE INPUT SEQUENCE x() COUID HAVE BEEN 
C GENERATED BY SPECIFYING xsorce = 'S' AND WRITING THE APPROPRIATE 
C FORTRAN STATEMENTS INTO SUBROUTINE xgen. THE STATEMENTS THAT 
C COULD BE USED TO ACCOMPLLSH THIS ARE WRITTEN INTO THE SUBROUTINE 
C BUT ARE 'COMMENTED OUT' . 

C 

C 

Q'k'k'k'k'k'k'k'k'k'k'k'kic'k'k'k'k'k'k'k'k'k'k'k'k'k'k MAIN PROGRAM *******★**************'*’***** 



character infile* 12, mode*l, xsorce* 1 

real a(l:128), b(0:128), y(-128:300), x(-128:300), ii 

C PROMPT USER FOR MODE: BATCH OR TEST. 

write (*,1115) 
read (*,1117) mode 

if ( (mode.eq. ’Y’ ) .or. (mode.eq. 1 y ’ ) ) then 
mode = ' Y ' 
write (*,1118) 
read (*,1119) infile 
else 
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infile = ' DIFFEQ.rN' 
endif 

C UNIT=1 DEFINED AS INHJT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (uni t=2, file=' DIFFEQ. OUT' ) 
open (unit=3 , f ile= ' DIFFEQ . DAT ' ) 

C READ INHJT PARAMETERS AND CONDUCT ERROR CHECKS. 

read(l,1000) numsys 

if ( (numsys. le.O) .or. (numsys. gt. 4) ) then 
write (*,1126) numsys 

stop 'The allowed values for numsys are 1 <= numsys <= 4. ' 
endif 

numplts = 2*numsys 
write (3, 2 000) numplts 

do 10 nprob=l , numsys 

read(l,1001) L, N, nstop, xsorce 

if ( (L.lt.O) .or. (L.gt.128) ) then 
write(*, 1124) nprob, 'L', L 

stop 'The allowed values for ' ' L' ' are: 0 <= L <= 128. ' 

endif 

if ((N.lt.O) .or. (N.gt.128) ) then 
write(*, 1124) nprob, 'N', N 

stop 'The allowed values for ' ' N ' ' are: 0 <= N <= 128. ' 

endif 

if ( (nstop. It. 0) .or. (nstop. gt. 300) ) then 
write (*, 1127) nprob, nstop 

stop 'The allowed values for nstop are: 0 <= nstop <= 300. ' 
endif 

if ( (xsorce. eq. 'F' ) .or. (xsorce. eq. ' f ' ) ) then 
xsorce = 'F' 

elseif ( (xsorce. eq. 'S') .or. (xsorce. eq. 's' ) ) then 
xsorce = 'S' 
else 

write (*,1128) nprob, xsorce 

stop 'The allowed values for ''xsorce'' are: ' ' F ' ' or ''S' 1 , 
endif 

C INITIAITZE EACH ARRAY TO ZERO BEFORE EACH RUN. 

data a/128*0.0/, b/129*0.0/ 
data y/429*0.0/, x/429*0.0/ 
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C READ THE COEFFICIENTS b() , a() AND THE INITIAL CONDITIONS 
C y(-N)...y(-l). 

read( 1,1002) (b(k) , k=0,L) 
if(N.gt.O) then 
icstart = -N 

read(l, 1002) (a(k), k=l,N) 
read(l,1002) (y(k) , k=icstart,-l) 
endif 

C FOR xsorce = 'F' READ THE ARRAY X() FROM THE INPUT FILE. 

C FOR xsorce = 'S' CALL xgen TO GENERATE THE ARRAY x() . 

if (xsorce. eq. 'F' ) then 

read (1,1002) (x(k) , k=0,nstop) 
else 

call xgen(x,nstop,nprob) 
endif 

C FOR TEST MODE ECHO INPUT PARAMETERS ONTO MONITOR (UNIT = *) . 

if (mode.eq. 'Y' ) then 
write (*,1007) 

write (*, 1120) nprob, infile 
write (*, 1110) 'INPUT', 'L', L 
write (*, 1110) 'OUTPUT', 'N', N 
write ( * , 1112 ) nstop 
write(*, 1004) 

write (*,1005) (b(k),k=0,L) 
if(N.eq.O) then 
write (*,1131) 
else 

write (*, 1006) 

write(*, 1005) (a(k) ,k=l,N) 
endif 

write (*,1123) nprob 

pause 'END OF RUN, STRIKE <CR> WHEN READY TO CONTINUE. ' 
endif 



C WRITE INPUT DATA INTO FILE: DIFFEQ.OUT. 



write (2, 1008) 
write (2 ,1120) 
write (2, 1110) 
write (2, 1110) 
write (2, 1112) 
write (2, 1004) 
write (2, 1005) 



'INPUT' , nprob 
nprob, infile 
'INPUT', 'L', L 
'OUTPUT', 'N', N 
nstop 

(b(k) ,k=0,L) 
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if(N.eq. 0) then 
write (2, 1131) 
else 

write (2, 1006) 

write (2, 1005) (a(k) ,k=l,N) 
endif 

C WRITE THE INPUT SEQUENCE INTO FILE: DIFFEQ.DAT. 

write (3, 2001) nstop + 1 
write (3,*) 'INPUT SEQUENCE x (ns) ' 
write (3,*) 'SAMPLE# (ns)' 
write (3,*) 'x(ns) ' 
do 54 ns=0, nstop 
ii = ns 

write (3, 2010) ii, x(ns) 

54 continue 

C CALL diffeq TO COMPUTE THE SOLUTION TO THE DIFFERENCE EQUATION, 
call diffeq(N,L,a,b,x,y,nstop) 

C WRITE RESULTS INTO FILE: DIFFEQ.DAT. 

write (3, 2001) N + nstop + 1 
write(3,*) 'OUTPUT SEQUENCE Y(ns) ' 
write (3,*) 'SAMPLE# (ns)' 
write(3,*) 'y(ns) ' 
do 55 ns= -N, nstop 
ii = ns 

write(3,2010) ii, y(ns) 

55 continue 

C WRITE RESULTS INTO FILE: DIFFEQ. OUT. 

write (2,1008) ' OUTPUT ' , nprob 
write (2, 1129) 
do 102 ns= -N, nstop 

write(2,1130) ns, x(ns) , y(ns) 

102 continue 

write (2, 1123) nprob 

10 continue 

write (*,1121) 

999 close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.0) then 
write ( * , 1116 ) ierr 
endif 



259 



C******** INPUT FORMAT ******** 



1000 format (il) 

1001 format ( i3 , til , i3 , t21 , i3 , t3 1 , al) 

1002 format(6fl0.0) 

Q-k’k-k-k-k'k-k-k-k-k'k'k'k'k'k-k'k-k-k-k-k-k-k-k-k'k-k-k-k'k-k-k 

1004 format (t4, 'THE COEFFICIENTS b(0) , b(l) , b(L) ARE:',/) 

1005 format(6(lx,el2.6) ) 

1006 format(//,t4, 'THE COEFFICIENTS a (1) , a(N) ARE:',/) 

1007 format (//////////) 

1008 format (/// , tl6 , a6 , ' DATA FOR PROBLEM # ',il,//) 

1110 format (t4, 'THE NUMBER OF ',a6,' DELAYS: ',al, ' = ',i3) 

1112 format (t4, 'THE VALUE OF nstop IS: \i3) 

1115 0forrnat(lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : ',\,) 

lilt, Oformat (/// , lx, 'ERROR OPENING INPUT FILE, PROGRAM TERMINATED. ', 
l//,lx, 'ERROR CODE: ' ,i4, /////) 

1117 format (al) 

1118 Oformat (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 

1' BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: DIFFEQ.TST' , 

3 ' TYPE: DIFFEQ.TST <CR>',/, ' FILENAME: ',\,) 

1119 format (al2) 

1120 format (///,t4, 'PROBLEM # ',il,' INPUT DATA SOURCEFILE: ',al2) 

1121 0 format (//, ' TABULAR OUTPUT DATA IS STORED IN FILE: DIFFEQ.OUT. ' 
1,/,' PLOTTING DATA IS STORED IN FILE: DIFFEQ.DAT. ' ) 

1122 format (i3) 

1123 format (/, lx, 16 ('-'), ' END OF PROBLEM #' ,i2,2x, 16 ('-') ,//) 

1124 Oformat (//, ' For problem # ' , i2 , ' the value for ',al, ' is: ',i3, 
1'. This value is not allowed.') 

1126 formate//',' numsys = ' , i4 , ' . This value is not allowed.') 

1127 Oformat (//, ' For problem #',i2,' the value for ''nstop'' is: ', 
li3, ' . This value is not allowed. ') 

1128 Oformat (//, ' For problem #',i2,' the value for ''xsorce'' is: ', 
lal, ' . This value is not allowed. ') 

1129 format(t6, 'ns' ,tl6, 'x(ns) ' ,t35, 'y(ns) ' ) 

1130 format (t4, i4,tll,el4.6,t30,el4.6) 

1131 format (/, ' THIS SYSTEM IS NON-RECURSIVE, I.E., N = 0.') 

2000 format (il) 

2001 format (i3) 

2010 format (el2 . 6 , 2x, el2 .6) 

end 
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noon 



c 



SUBROUTINE: diffeq 



PURPOSE: THIS SUBROUTINE COyiFUTES THE SOLUTION TO A DIFFERENCE 

EQUATION. ALL PARAMETERS DESCRIBING THE EQUATION, AND 
THE INPUT AND OUTFUT SEQUENCES x() AND y() ARE PASSED 
TO THE SUBROUTINE BY THE MAIN PROGRAM. 

subroutine diffeq(N,L,a,b,x,y,nstop) 
real x(-128:nstop) , y(-128:nstop) , a(l:N) , b(0:L) 

do 500 ns=0, nstop 
y(ns) = 0.0 
do 501 k=0, max(N,L) 

y(ns) = y(ns) + a(k)*y(ns-k) + b(k)*x(ns-k) 

501 continue 
500 continue 

return 

end 



C SUBROUTINE: xgen 



C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE VALUES FOR 

C THE ARRAY x() . IF xsorce = 'S' THE MAIN PROGRAM WILL 

C CALL THIS SUBROUTINE. IF xsorce = 'F' THIS SUBROUTINE 

C WILL NOT BE CALLED BY THE MAIN PROGRAM. 



subroutine xgen (x, nstop, nprob) 
real x(-128: nstop) 

C* ******** ************************************************************** 

C DEVELOP THE ALGORITHM FOR GENERATING VALUES OF x() IN THIS SPACE. 

C THE STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 RULES AND 
C MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN() , COS(), ... 

C NOTE THAT THE VALUE nprob CAN BE USED IN A LOGICAL 'IF' STATEMENT 
C TO MATCH THE GENERATING FUNCTIONS TO THE CORRESPONDING SYSTEM 
C EQUATION READ FROM THE INPUT FILE IF MORE THAN ONE SYSTEM OF 
C EQUATIONS EXIST. AN EXAMPLE OF AN ALGORITHM GENERATING VALUES 
C FOR x( ) IS: 

C 

C 
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EXAMPLE *** 



c 

C if (nprob.eq.l) then 

C do 1 k=0, nstop 

C x(k) = 100.0 

C 1 continue 

C endif 

C* ******** ******************* ************ ***************** -kick-kick ******** 



return 

end 
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STATEQ.POR 



VERSION: 2/03/88 



C 

C 

C 

C PURPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



THIS PROGRAM GOMEUTES THE ITERATIVE SOLUTION TO A SET 
OF LINEAR, TIME-INVARIANT STATE EQUATIONS. THE FORM 
OF THE STATE EQUATIONS IS: 

v(ns+l) = Av(ns) + Bx(ns) 
y(ns) = Cv(ns) + Dx(ns) 

WHERE A, B, C, D ARE MATRICES OF THE SYSTEM CONSTANTS, 

V IS THE STATE VECTOR, X IS THE INPUT VECTOR, AND y 
IS THE OUTPUT VECTOR. THE PROGRAM CONSISTS OF A MAIN 
PROGRAM AND TWO SUBROUTINES. THE SUBROUTINE xgen GIVES 
THE USER THE OPTION OF GENERATING THE VECTOR INPUT 
SEQUENCE x( ) BY WRITING THE APPROPRIATE EQUATIONS IN THE 
SPACE ALLOCATED IN THIS SUBROUTINE. IF THE USER CHOOSES 
TO GENERATE THE INPUT DATA BY USING SUBROUTINE xgen THE 
EQUATIONS MUST BE WRITTEN INTO THE SUBROUTINE USING 
STANDARD FORTRAN 77 EXECUTABLE STATEMENTS AND THE VALUES 
GENERATED MUST BE STORED IN THE 2-DIMENSIONAL ARRAY 
XS() . THE SUBROUTINE itrate COMPUTES THE STATE OF THE 
SYSTEM V ( ) , AS WELL AS THE OUTPUT OF THE SYSTEM y() , FOR 
EACH VALUE OF ns FROM ns = 0 TO ns = ns top. THE USER 
HAS THE OPTION OF SELECTING ONE OF TWO OPERATING MODES: 
BATCH OR TEST. IN BATCH MODE THE AMOUNT OF INTERFACE 
WITH THE USER IS MINIMIZED AND IT IS ASSUMED THAT THE 
INPUT PARAMETERS DESCRIBED BEIOW HAVE BEEN STORED IN 
THE INPUT FILE 'STATEQ.IN'. IN TEST MODE THE USER IS 
PROMPTED FOR THE NAME OF THE INPUT FILE AND HAS THE 
OPTION OF PERFORMING A TEST RUN USING THE DATA STORED IN 
IN THE FILE 'STATEQ.TST' . IT IS RECOMMENDED THAT FIRST- 
TIME USERS SELECT TEST MODE AND PERFORM A TRIAL RUN 
WITH THE PRESTORED DATA. THE TEST MODE ECHOES PORTIONS 
OF THE INPUT DATA ONTO THE MONITOR TO ALLOW VERIFICATION 
OF ITS ACCURACY. THE OUTPUT OF THE PROGRAM 'STATEQ.FOR' 
IS STORED IN THE 2-DIMENSIONAL ARIRAY ys() AND THE SYSTEM 
STATES ARE STORED IN THE 2-DIMENSIONAL ARRAY vs() . THE 
INPUT VALUES, SYSTEM STATES AND THE OUTPUT DATA ARE 
STORED IN TABULAR FORM IN THE FILE 'STATEQ.OUT' AND IN A 
FORM SUITABLE FOR PLOTTING IN THE FILE 'STATEQ.DAT' . 



( 2 ****************************** INFUT ******************************** 



c 

c 

C THIS PROGRAM ASSUMES THAT THE STATE EQUATIONS ARE IN THE 
C FORM : 

C 

C [vl(ns+l) ] [ all ... aNN] [ vl(ns) ] [bll ... blM] [xl(ns)] 

C [v2 (ns+1) ] [ a21 ... a2N] [ v2(ns) ] [b21 ... b2M] [x2(ns)] 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



[ ... ] = [ 

[vN(ns+l) ] [ 



aNl 



...]*[ 

aNN] [ 



] + [ 



vN(ns) ] [bNl 



...]*[ ..• ] 

bNM] [xM(ns)] 



[yl(ns) ] 
[y2 (ns) ] 
[ ... ] 
[yQ(ns) ] 



[ell 

[c21 

[♦.. 

[CQ1 



clN] [vl(ns) ] 
c2N] [v2 (ns) ] 
...]*[ ... ] + 
cQN] [vN(ns) ] 



[dll ... dlM] [xl(ns)] 
[d21 . . . d2M] [x2 (ns) ] 

[ ]*[ ... ] 

[dQl . . . dQM] [xM(ns) ] 



c 


N 


IS 


c 


M 


IS 


c 


Q 


IS 


c 






c 


X 


IS 


c 


V 


IS 


c 


y 


IS 


c 


A 


IS 


c 


B 


IS 


c 


c 


IS 


c 


D 


IS 



C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



THE M X 1 INPUT' VECTOR. 

THE N x 1 STATE VECTOR. 

THE Q X 1 OUTPUT VECTOR. 

AN N X N M?TFLX OF CONSTANTS. 
AN N X M MATRIX OF CONSTANTS. 
A Q X N MATRIX OF CONSTANTS. 
A Q x M MATRIX OF CONSTANTS. 



THE SOLUTION IS GENERATED IN THE INTERVAL 0 <= ns <= nstop. THE 
USER MUST PROVIDE THE MATRICES A, B, C, D AS WEI L AS THE INITIAL 
VALUES OF THE STATE VECTOR V IN THE INFUT FILE. THESE INPUTS, AS 
WELL AS THE PARAMETERS DESCRIBED BELOW, SHOULD BE STORED IN THE 
INPUT FILE 'STATEQ. IN' . ALL OF THE READ STATEMENTS USED BY THIS 
PROGRAM REQUIRE FORMATTED INPUT. PARTICULAR ATTENTION SHOULD BE 
PAID TO THESE FORMATS, ESPECIALLY THE USE OF THE DECIMAL POINT 
TO DISTINGUISH BETWEEN 'REAL' AND INTEGER DATA. 



c 

p 


NAME 


TYPE 


RANGE 


(ARRAYS) 




RESTRICTIONS 


c 


N 


INTEGER 








0 <= N <= 10 


c 


M 


INTEGER 








0 <= M <= 4 


c 


Q 


INTEGER 








0 <= Q <= 4 


c 


nstop 


INTEGER 






0 


<= nstop <= ' 


c 


xsorce 


CHARACTER 








'F' OR 'S' 


c 


A(i,j) 


REAL 


i=l, . 


• • ,N 




0 <= N <= 10 


c 






j=l, • 


• • ,N 






c 


B(i, j) 


REAL 


i=l, . 


• • ,N 




0 <= N <= 10 


c 






j=l,. 


*.,M 




0 <= M <= 4 


c 


C(i,j) 


REAL 


i=l, . 


• •,Q 




0 <= Q <= 4 


c 






j=l,- 


• * ,N 




0 <= N <= 10 


c 


D(i,j) 


REAL 


i=l, . 


• • ,Q 




0 <= Q <= 4 


c 






j=lr • 


• • ,M 




0 <= M <= 4 


c 


v(i) 


REAL 


i=l, . 


• • ,N 




0 <= N <= 10 


c 


xs(i, j) 


REAL 


i=l, . 


• • ,M 




0 <= M <= 4 


c 






j=o, . 


. . , nstop 


0 


<= nstop <= ! 



99 
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WHERE 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



N = AN INTEGER VALUE THAT SPECIFIES THE NUMBER OF SYSTEM STATES, 
I.E., THE ORDER OF THE SYSTEM. 

M = AN INTEGER VALUE THAT SPECIFIES THE NUMBER OF SYSTEM INPUTS. 

Q = AN INTEGER VALUE THAT SPECIFIES THE NUMBER OF SYSTEM OUTPUTS. 

nstop = AN INTEGER VALUE THAT SPECIFIES THE LARGEST TIME INDEX 
(ns) FOR WHICH THE STATE EQUATIONS ARE TO BE SOLVED. 

xsorce = A CHARACTER VALUE OF 'F' OR 'S' DENOTING WHETHER THE INPUT 
SEQUENCE (S) xs(i,j) ARE TO BE READ FROM THE INPUT FILE (F) 
OR TO BE GENERATED (S) USING THE SUBROUTINE xgen. THIS 
LATTER OPTION IS ATTRACTIVE WHEN nstop IS A LARGE NUMBER 
AND THE INPUT SEQUENCE (S) xs(i,j) CAN BE READILY DESCRIBED 
BY ANALYTICAL EXPRESSIONS. IF xsorce = 'F' THE VALUES OF 
xs(i, j) , i=l, . . . ,M ; j=0, . . . , nstop ARE READ FROM THE 
INPUT FILE. IF xsorce = 'S' THEN THE USER HAS ELECTED 
TO GENERATE THE INPUT SEQUENCE (S) xs(l, j) , . . . ,XS(M, j) BY 
WRITING THE APPROPRIATE FORTRAN STATEMENTS IN THE SUB- 
ROUTINE xgen. IF THIS METHOD OF INPUT DATA GENERATION 
IS SELECTED NO VALUES OF THE INPUT SEQUENCE SHOUIE APPEAR 
IN THE INPUT FILE AND THE PROGRAM MUST BE RECOMPILED 
BEFORE EXECUTION. 

A(i, j) = AN N X N MATRIX OF REAL NUMBERS. 

B(i, j) = AN N X M MATRIX OF REAL NUMBERS. 

C(i, j) = A Q x N MATRIX OF REAL NUMBERS. 

D(i, j) = A Q X M MATRIX OF REAL NUMBERS. 

V(i) = THE N X 1 INITIAL CONDITION VECTOR OF THE SYSTEM STATES. 

THE USER MUST PROVIDE THE VALUES OF THE STATES FOR ns=0, 
I.E., V(l) , ...,V(N) . THESE VALUES ARE THE INITIAL 
CONDITIONS OF THE SYSTEM. 

xs(i, j) = AN M x (nstopKL) MATRIX OF REAL NUMBERS. THE SEQUENCE(S) 
xs(l,ns), — ,xs(M,ns) ARE THE INPUTS TO THE SYSTEM AT 
SAMPLE ns. 

NOTE: THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN PROGRAM 

FOLLOWING THE CAPTION: ******** INPUT FORMAT ********* 

THE FORM OF THE INPUT DATA FILE IS: 
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c 


LINE 


# 


ENTRIES 




FORMAT 


NOTES 


U 

c 


1 




N,M,Q 


i2 


,tll,il,t21,il 




c 


2 




nstop,xsorce 




i2,tll,al 




c 


NEXT 


NA LINES 


A(i, j ) f i-1 / • • • 


,N 


6fl0. 0 


READ BY ROWS 


c 






. • • 


,N 






c 


NEXT 


N LINES 


B(i,j),i=l, ... 


/N 


4fl0. 0 


READ BY ROWS 


c 






j=l, . . . 


,M 






c 


NEXT 


NC LINES 


c(i,j),i=i,... 


,Q 


6fl0. 0 


READ BY ROWS 


c 






j— l, . . . 


/N 






c 


NEXT 


Q LINES 


D(i, j) , i=l, . • . 


,Q 


4fl0. 0 


READ BY ROWS 


c 






j = l, . . . 


,M 






c 


NEXT 


Nv LINES 


v(i) i=l, ... 


/N 


6fl0. 0 




c 


NEXT 


NX LINES 


xs(i, j) ,i=l, . . 


.,M 


4fl0. 0 


EACH LINE 


c 






j=0,.. 


. , ntop 




CORRESPONDS 



c 

c 

c 



C 


WHERE: 






C 








C 


NA = N 


IF N <= 6 




C 


2*N 


OTHERWISE. 




C 








C 


NC = Q 


IF N <= 6 




C 


2*Q 


OTHERWISE. 




C 








C 


Nv = 0 


IF N = 0, 




C 


Nv = 1 


IF 1 <= N <= 


6, 


C 


Nv = 2 


IF N > 6. 




C 








C 


NX = 0 


IF xsorce = 


'S' OR 


C 


Nx = nstop +1 IF xsorce = ' F' 


C 








C 


NOTE: THE 


FORMAT flO.O 


USED FOR INPUT 



TO ONE VALUE 
OF ns. 



C POINT TO BE PLACED ANYWHERE IN THE FIELD OF 10 COLUMNS 

C AND ALSO ALUOWS THE EXPONENTIAL FORMAT TO BE USED (EG. 

C 3146.2 = 3. 1462E+03) . 

C 

C 

C****************************** OUTPUT ****************************** 



C 

C 

C THE INPUT DATA, SYSTEM STATES, AND THE OUTPUT SEQUENCE (S) ARE 

C STORED IN TABULAR FORM IN THE FILE 'STATEQ.OUT' . ADDITIONALLY, 

C UP TO 9 SEQUENCES CONSISTING OF THE INPUT AND OUTPUT SEQUENCES 
C AND THE SYSTEM STATES ARE STORED IN THE FILE 'STATEQ.DAT' TO 
C FACILITATE PLOTTING BY A SEPARATE, USER PROVIDED PROGRAM. NOTE 

C THAT A MAXIMUM OF 9 SEQUENCES ARE WRITTEN INTO THIS FILE. IF 

C MORE THAN 9 SEQUENCES EXIST, ALL OF THE INPUT AND OUTPUT SEQUENCES 
C (xs() AND ys() ) WILL BE STORED, HOWEVER SOME OF THE SYSTEM STATES 
C (VSQ) WILL NOT BE STORED IN 'STATEQ.DAT'. THE FORMAT OF THE DATA 
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C IN 'STATEQ.DAT' IS: el2.6, 2X, el2.6. THE FIRST ENTRY CORRESPONDS 

C TO THE ORDINATE VALUE, AND THE SECOND ENTRY, THE ABSCISSA VALUE. 

C ADDITIONAL HEADER INFORMATION IS WRITTEN INTO 'STATEQ.DAT' TO 
C ALLOW FOR CONTROL AND LABELING OF EACH PICT. 

C 

C 

C****************************** EXAMPLE ****************************** 



C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 



THE INPUT PARAMETERS FOR THE SYSTEM DESCRIBED BEIOW ARE STORED 
IN THE FILE 'STATEQ.TST' . THE GOAL IS TO READ THE INPUT VALUES 
FROM THE INFUT FILE AND TO CALCULATE THE STATE VECTOR V AND THE 
CORRESPONDING OUTPUT VECTOR y FOR ns = 0 TO 3. 

GIVEN: N = 2 
M = 1 
Q = 1 

xl(ns) = 10. 0*u(ns) 

xsorce = ' F' I.E. , THE SEQUENCE xs(l,ns) IS FlEAD 
FROM THE INPUT FILE. 

INITIAL CONDITIONS: 

vl(0) = 5.0 

v2(0) = -5.0 

SYSTEM OF EQUATIONS IN MATRIX FORM: 



[ 0 . 0 ] 



c 


[vl(ns+l) ] 


= [0.0 


-1.0]*[vl(ns) 


c 


[v2 (ns+1) ] 


[1.0 


0.0] [v2 (ns) 


c 








c 


[yl(ns) ] 


= [1.0 


-1.0]*[vl(ns) 


c 






[v2 (ns) 


c 








c 


THE INPUT 


FILE IS: 




c 








c 


02 


1 


1 


c 


03 


F 




c 


0.0 


-1.0 




c 


1.0 


0.0 




c 


1.0 






c 


0.0 






c 


1.0 


-1.0 




c 


1.0 






c 


5.0 


-5.0 




c 


10.0 






c 


10.0 






c 


10.0 






c 


10.0 
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C THE RESULTING OUTPUT FILE 'STATEQ.OUT' IS: 
C 

C INKJT PARAMETERS: 

C 

C INPUT DATA SOURCE FILE: STATEQ.TST 

C THE NUMBER OF STATES IS: N = 2 

C THE NUMBER OF SYSTEM INPUTS IS: M = 1 

C THE NUMBER OF SYSTEM OUTPUTS IS: Q = 1 

C THE VALUE OF nstop IS: nstop = 3 

C THE VALUE FOR xsorce IS: F 
C 



c 

c 


THE MATRIX 


A(i,j) IS: 


c 


. 0000E+00 


1000E+01 


c 

c 


. 1000E+01 


. 0000E+00 


c 

c 


THE MATRIX 


B(i, j) IS: 


c 


. 1000E+01 




c 

c 


. 0000E+00 




c 

c 


THE MATRIX 


C(i,j) IS: 


c 

c 


. 1000E+01 


1000E+01 


c 

c 


THE MATRIX 


D(i,j) IS: 


c 


. 1000E+01 





C 

C THE INITIAL CONDITION OF THE STATE VECTOR IS 
C 

C vl — . 500000E+01 

C v2 = 500000E+01 

C 
C 

C OUTPUT DATA: 

C 

C FOR ns = 0 THE STATE OF THE SYSTEM IS: 

C THE VECTOR x is: 

C xl = . 100000E+02 

C THE VECTOR v is: 

C vl = . 500000E+01 

C v2 = 500000E+01 

C THE VECTOR y is: 

C yl = . 200000E+02 

C 

C FOR ns = 1 THE STATE OF THE SYSTEM IS: 

C THE VECTOR x is: 

C xl = . 100000E+02 

C THE VECTOR v is: 

C vl = . 150000E+02 

C V2 = . 500000E+01 
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C THE VECTOR y is: 

C yl = . 200000E+02 

C 

C FOR ns = 2 THE STATE OF THE SYSTEM IS: 

C THE VECTOR x is: 

C Xl = . 100000E+02 

C THE VECTOR V is: 

C vl = . 500000E+01 

C v2 = . 150000E+02 

C THE VECTOR y is: 

C yl = . OOOOOOE+OO 

C 

C FOR ns = 3 THE STATE OF THE SYSTEM IS: 

C THE VECTOR x is: 

C Xl = . 100000E+02 

C THE VECTOR V is: 

C vl = -. 500000E+01 

C V2 = . 500000E+01 

C THE VECTOR y is: 

C yl = .OOOOOOE+OO 

C 

C 

C FOR IUUSTRATTVE PURPOSES THE SAME INPUT SEQUENCE COULD HAVE BEEN 
C GENERATED BY CHANGING XSOrce TO 'S' AND USING SUBROUTINE xgen 
C TO GENERATE THE VALUES FOR xs(l,ns) . THE APPROPRIATE FORTRAN 
C STATEMENTS ARE WRITTEN INTO xgen BUT 'COMMENTED OUT' FOR THIS 
C EXAMPLE. 

C 

C 

MATN PROGRAM ****** Tfe********************* 



real A(10 ; 10), B(10,4), 0(4,10), D(4,4), jj 
real ys (4, 0:99) , vs(10, 0:100) , xs(4,0:99), v(10) 
integer Q 

character*! mode, xsorce, infile*12 



C PROMPT USER FOR MODE: BATCH OR TEST. 

write (*, 1115) 
read (*,1117) mode 

if ((mode.eq. 1 Y ' ) .or. (mode.eq. 'y')) then 
mode = ' Y ' 
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write (*, 1118) 
read(*,1119) infile 
else 

infile = 'STATEQ. IN' 
endif 

C UNIT=1 DEFINED AS INHJT FILE. UNITS=2,3 DEFINED AS OUTPUT FILES. 

open (unit=l , f ile=inf ile , status= ' old ' , iostat=ierr , err=999 ) 
open (unit=2 , f ile= ' STATEQ . OUT ' ) 
open (unit=3 , f ile= ' STATEQ . DAT ' ) 

C READ INHJT PARAMETERS AND PERFORM ERROR CHECKS. 

read (1, 1001) N, M, Q 
read (1,1002) nstop , xsorce 

if ( (N.lt.O) .or. (N.gt.10) ) then 
write (*, 1124) 'N' , N 

stop 'The allowed values for ' 'N' 1 are: 0 <= N <= 10. ' 

endif 

if ( (M.lt.0) .or. (M.gt.4) ) then 
write (*, 1124) 'M', M 

stop 'The allowed values for ' 'M' ' are: 0 <= M <= 4. ' 

endif 

if ( (Q.lt.0) .or. (Q.gt.4) ) then 
write (*, 1124) ' Q ' , Q 

stop 'The allowed values for ' ' Q ' ' are: 0 <= Q <= 4. ' 

endif 

if ( (nstop. It. 0) .or. (nstop. gt. 99) ) then 
write (*,1127) nstop 

stop 'The allowed values for nstop are: 0 < nstop <= 99. ' 
endif 

if ( (xsorce. eq. ' F ' ) .or. (xsorce. eq. 'f ' ) ) then 
xsorce = ' F ' 

elseif ( (xsorce. eq. 'S' ) .or. (xsorce. eq. 's' ) ) then 
xsorce = 'S' 
else 

write (*,1128) xsorce 

stop 'The allowed values for ''xsorce'' are: ' * F ' ' or ''S''.' 
endif 

C FOR TEST MODE ECHO INPUT PARAMETERS ONTO MONITOR (UNIT = *) . 

if (mode.eq. 'Y' ) then 
write (*, 1006) 
write (*,1007) infile 
write (*,1008) N 
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write (*,1009) M 
write (*, 1010) Q 
write ( * , 1011 ) nstop 
write(*,1012) xsorce 
if(N.eq.O) write(*, 1131) 
endif 

C WRITE INRJT PARAMETERS N,M,Q, nstop, xsorce INTO FILE: STATEQ.OUT. 

write (2, 1006) 
write (2, 1007) infile 
write (2, 1008) N 
write (2, 1009) M 
write (2, 1010) Q 
write (2,1011) nstop 
write (2, 1012) xsorce 

C READ SYSTEM MATRICES AND WRITE THEM INTO FILE: STATEQ.OUT. 

if(N.eq.O) then 
write (2, 1131) 

else 

write (2, 1110) 'A(i, j) ' 
do 30 i-1, N 

read (1,1003) (A(i, j) , j=l,N) 
write (2, 1005) (A(i, j) , j=l,N) 

30 continue 

write (2, 1110) 'B(i, j) 1 
do 40 i=l, N 

read (1,1004) (B(i, j) , j=l,M) 
write (2, 1005) (B(i, j) , j=l,M) 

40 continue 

write(2, 1110) ■ C (i, j ) ' 
do 50 i=l, Q 

read(l, 1003) (C(i, j) , j=l,N) 
write (2, 1005) (C(i, j) , j=l,N) 

50 continue 

endif 



write(2,1110) 'D(i, j) ' 
do 54 i=l, Q 

read(l, 1004) (D(i, j) , j=l,M) 
write (2, 1005) (D(i, j) , j=l,M) 

54 continue 

C READ THE INITIAL CONDITION VECTOR v() AND WRITE THE VALUES 
C INTO FILE: STATEQ.OUT. 
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64 



if(N.gt.O) then 
read (1,1003) (v(i),i=l,N) 
write (2, 1123) 
do 64 i=l, N 

write(2, 1133) 'v', i, v(i) 
vs(i, 0) = v(i) 
continue 

C FOR TEST MODE WRITE THE VECTOR v() ONTO THE MONITOR. 

if (mode. eq. ' Y' ) then 
write (*,*) 

pause ' > Type <CR> to continue. < ' 

write(*, 1123) 
do 65 i=l, N 

write (*,1133) 'v', i, v(i) 

65 continue 

endif 
endif 

C FOR xsorce = ' F ' READ THE ARRAY xs(i,j) FROM THE INFUT FILE. 

C FOR xsorce = 'S' GALL ' xgen 1 TO GENERATE THE ARRAY XS(i,j) . 

if (xsorce. eq. * F* ) then 
do 70 j=0, nstop 

read(l,1004) (xs(i, j) ,i=l,M) 

70 continue 

else 

call xgen (xs,M, nstop) 
endif 

C CXMFUTE ITERATIVE SOLUTION TO THE SYSTEM OF EQUATIONS. 

call itrate(N,M,Q,nstop,A,B,C,D,xs,vs,ys) 

C FOR EACH VALUE OF ns WRITE THE VALUES OF xs() , vs() , ys() TO THE 
C OUTPUT FILE: STATEQ.OUT. 

write (2, 1129) 

do 100 ns=0, nstop 
write (2, 1130) ns 
write(2, 1132) 'x' 
do 101 i=l, M 

write(2, 1133) 'x', i, xs(i,ns) 

101 continue 

if(N.gt.O) then 
write(2, 1132) 'v' 
do 102 i=l, N 

write(2, 1133) 'v' , i, vs(i,ns) 
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102 



continue 
endif 

write (2, 1132) 'y' 
do 103 i=l, Q 

write(2,ll33) 'y', i, ys(i,ns) 

103 continue 
100 continue 

C WRITE THE SEQUENCES XS, vs, ys INTO THE FILE: STATEQ.DAT. 

numplts = N + M + Q 
if (numplts.gt.9) then 
numplts = 9 
N = 9 - M - Q 
endif 

write (3 , 2000) numplts 

do 55 i=l, M 
write ( 3 , 2001) nstopH-i 

write (3, 2002) 'INRJT SEQUENCE x', char(48+i) , ' (ns)' 
write (3,*) 'SAMPLE # (ns)' 
write(3,2003) 'x', char(48+i) , ' (ns)' 
do 56 ns=0, nstop 
jj = ns 

write (3, 2010) jj, xs(i,ns) 

56 continue 
55 continue 

do 57 i=l, N 
write ( 3 , 2001) nstop+i 

write (3, 2002) 'STATE SEQUENCE v' , char(48+i) , ' (ns)' 
write(3, *) 'SAMPLE # (ns)' 
write(3,2003) 'v', char(48+i) , ' (ns)' 
do 58 ns=0, nstop 
jj = ns 

write (3, 2010) jj, vs(i,ns) 

58 continue 

57 continue 

do 59 i=l, Q 
write (3,2001) nstop+1 

write (3, 2002) ' OUTRE? SEQUENCE y ' , char(48+i) , ' (ns)' 
write(3, *) 'SAMPLE # (ns)' 
write(3,2003) 'y * , char(48+i) , ' (ns)' 
do 60 ns=0, nstop 
jj = ns 

write(3,2010) jj, ys(i,ns) 

60 continue 

59 continue 
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write(*, 1121) 

999 close (unit=l) 
close (unit=2) 
close (unit=3) 

if (ierr.gt.O) then 
write (*,1116) ierr 
endif 



C******** INRJT FORMAT ******** 

1001 format(i2,tll, il, t21, il) 

1002 format (i2, til, al) 

1003 format (6 (flO.O)) 

1004 format (4 (flO.O) ) 

Q'k'k'k'k'k-k-kirk-k'k-k-k'k'k-k'k-k-k-k-k-kic-k'k-k'k'kic-k'k-k 

1005 format(6(2X,el0.4) ) 

1006 f ormat ( tl6 ,//////, ' INRJT PARAMETERS: ' ,//) 

1007 format (t4, 'INRJT DATA SOURCE FILE: ' ,al2) 

1008 format (t4, "THE NUMBER OF STATES IS: N = ',i2) 

1009 format (t4, 'THE NUMBER OF SYSTEM INRJTS IS: M = \il) 

1010 format (t4, 'THE NUMBER OF SYSTEM OUTRJTS IS: Q = \il) 

1011 format (t4, "THE VALUE OF nstop IS: nstop = ',i2) 

1012 format (t4, 'THE VALUE FOR xsorce IS: ' ,al,/) 

1110 format (///,t4, 'THE MATRIX ' ,a6, ' IS: ' ,/) 

1115 0format(lx, 'DO YOU WISH TO RUN THIS PROGRAM IN TEST' , 

1' MODE ? (Y/N) <CR> : ' 

1116 Of ormat (/// , lx , 'ERROR OPENING INRJT FILE, PROGRAM TERMINATED. ', 
l//,lx, 'ERROR CODE: ' ,i4, /////) 

1117 format (al) 

1118 0 format (///// , L<, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED', 

1' BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: STATEQ.TST' , 

3 ' TYPE: STATEQ.TST <CR>' ,/, ' FILENAME: ' , \, ) 

1119 format (al2) 

1121 Oformat(//, ' TABULAR OUTRJT DATA IS STORED IN FILE: STATEQ . OUT . ', 
1/, ' PLOTTING DATA IS STORED IN FILE: STATEQ.DAT. ') 

1123 f ormat (//,t4, 'THE INITIAL CONDITION OF THE STATE VECTOR IS: ',/,) 

1124 Oformat(//, ' The value of ',al, ' is ' , i2 , ' . This value is not 
1 allowed. ' ) 

1127 Oformat(//, ' The value of nstop is ' , i2 , ' . This value is not 
1 allowed. ' ) 

1128 0format(//, ' The value of xsorce is ',al, '. This value is not 
1 allowed. ' ) 

1129 format (// , tl6 , ' OUTRJT DATA : ' ) 

1130 format(//,t2, 'FOR ns = ' ,i2, ' THE STATE OF THE SYSTEM IS: ') 

1131 format (/, ' THIS SYSTEM IS NON-RECURSIVE ! ! ! ') 

1132 format (t4, 'THE VECTOR ' ,al, ' is: ') 

1133 f ormat (t6,al,il, ' = ',el2.6) 

2000 format (il) 

2001 format (i3) 
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2002 format (al7,al,a5) 

2003 format (al,al,a5) 

2010 format(el2.6,2x,el2.6) 

end 



C SUBROUTINE: itrate 



C PURPOSE: 

C 

C 

C 

C 

C 

C 



THIS SUBROUTINE COMPUTES THE ITERATIVE SOLUTION TO 
THE DISCRETE, STATE MATRIX SYSTEM OF EQUATIONS. 

THE INPUTS TO THIS SUBROUTINE ARE THE DIMENSIONS 
N,M,Q, THE PARAMETER nstop, AND THE 2-DIMENSIONAL 
ARRAYS A, B, C, D, xs, AND vs. FOR EACH VALUE OF ns 
FROM ns = 0 TO ns = nstop THE STATE OF THE SYSTEM vs 
IS COMPUTED AS IS THE CORRESPONDING OUTPUT ARRAY ys. 



subroutine itrate (N,M,Q, nstop, A, B, C, D, xs, vs , ys) 
integer Q 

real A(10,10) , B(10,4), C(4,10), D(4,4) 
real xs(4,0:99), vs(10, 0:100) , ys(4,0:99) 

do 1 ns=0, nstop 

C FOR ns = 0 TO nstop: COMPUTE THE SOLUTION 
C TO THE EQUATION: vs(ns+l) = A*vs(ns) + B*xs(ns) . 

do 2 i=l, N 
xi = 0.0 

vs(i,ns+l) =0.0 
do 3 k=l, M 

xi = xi + B(i,k) *xs(k,ns) 

3 continue 

do 4 j=l, N 

vs(i,ns+l) = vs(i,ns+l) + A(i, j)*vs(j,ns) 

4 continue 

vs(i,ns+l) = vs(i,ns+l) + xi 
2 continue 



C COMPUTE THE SOLUTION TO THE EQUATION: ys(ns) = C*vs(ns) + D*xs(ns) . 

do 5 1=1, Q 
ys(l,ns) = 0.0 
xi = 0.0 
do 6 k=l, M 



275 



6 



xi = xi + D(l,k) *xs(k,ns) 
continue 
do 7 j=l, N 

ys(l,ns) = ys(l,ns) + C(l, j) *vs(j ,ns) 
7 continue 

ys(l,ns) = ys(l,ns) + xi 
5 continue 

1 continue 

return 

end 



C SUBROUTINE: xgen 



C PURPOSE: THIS SUBROUTINE ALLOWS THE USER TO GENERATE VALUES FOR 

C THE 2 -DIMENSIONAL ARRAY XS(i,j). IF xsorce = 'S' THE 

C MAIN PROGRAM Will, CALL THIS SUBROUTINE. IF xsorce = 'F' 

C THIS SUBROUTINE WILL NOT BE C ALLED BY THE MAIN PROGRAM. 



subroutine xgen(xs,M,nstop) 
real xs(4,0:99) 

pi = 4.0*atan(1.0) 

c** ************************************************************* ******** 

C DEVELOP THE ALGORITHM FOR GENERATING VALUES OF XS(i,j) IN THIS 
C SPACE. THE STATEMENTS TYPED IN MUST FOLLOW STANDARD FORTRAN 77 
C RULES AND MAY USE FORTRAN 77 INTRINSIC FUNCTIONS SUCH AS: SIN() , 

C COS() , . . . NOTE THAT THE ROW INDEX i DENOTES THE INPUT SEQUENCE 
C NUMBER 1 <= i <= M, AND THE INDEX j DENOTES THE VALUE FOR ns 
C 0 <= ns <= nstop. AN EXAMPLE OF AN ALGORITHM GENERATING VALUES 
C FOR THE SEQUENCE xs(l,ns) IS: 

C 

C 

C*** EXAMPLE *** 

C do 88 ns=0, nstop 

C xs(l,ns) = 10.0 

C 88 continue 

Q* •k-k-k'k'k-k'k'k'k'k-k'k'k'k 'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k ***** ********** ************ 'k'k'k'k ******* 'k'k'k 



return 

end 
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PLOTDAT.POR 



VERSION: 2/03/88 



C 

C 

C 

C PURPOSE: 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

C NOTE 1. 

C 

C 



THIS PROGRAM IS DESIGNED TO CREATE UP TO NINE TWO- 
DIMENSIONAL (2-D) PLOTS BY READING DATA FROM AN INPUT 
FILE AND PLOTTING THE DATA ON THE MONITOR SCREEN. THE 
PROGRAM CONSISTS OF A MAIN PROGRAM AND THE SUBROUTINES 
scale AND gridd. THE MAIN PROGRAM READS THE DATA FROM THE 
INPUT FILE, AND CREATES THE PIOT(S) BY MAKING CALLS TO 
THE GRAPHMATICS GRAPHICS LIBRARY (NOTE 1) . SUBROUTINE 
scale IS C ALLED BY THE MAIN PROGRAM TO SCALE THE DATA SO 
AS TO OPTIMALLY FILL THE SCREEN WITH EACH PLOT. SUBROUTINE 
gridd IS CALLED BY THE MAIN PROGRAM IF THE USER ELECTS TO 
HAVE A GRID OVERLAY THE PLOT. THE USER HAS THE OPTION OF 
PERFORMING A TRIAL RUN BY PLOTTING THE DATA PRESTORED IN 
THE FILE 'PIOTDAT.TST' . IT IS RECOMMENDED THAT FIRST-TIME 
USERS MAKE A TRIAL RUN BY SPECIFYING THE INPUT FILE 
'PIOTDAT.TST' WHEN PROMPTED FOR THE NAME OF THE INPUT 
FILE. THE SPECIFIC HARDWARE REQUIREMENTS NECESSARY TO RUN 
THE PROGRAM ARE OUTLINED BELOW. ADDITIONALLY, THE INPUT 
FORMAT REQUIREMENTS ARE PRESENTED AND A SAMPLE INPUT FILE 
LISTING IS INCLUDED. 

COPYRIGHT 1984, MICROCOMPATIBLES INC., SILVER SPRINGS, MD. 



C********************** HARDWARE REQUIREMENTS ************************ 



C 

C 

C THIS PROGRAM WAS WRITTEN FOR PERSONAL COMPUTERS OUTFITTED WITH A 
C COLOR GRAPHICS ADAPTER (CGA) CARD. THE MONITOR SCREEN IS ASSUMED 
C TO BE 640 X 200 PIXELS. FOR HARDCOPY PRINTOUTS OF THE PLOTS THE 
C PROGRAM WILL DRIVE A DOT MATRIX PRINTER IF INSTALLED. FOR 
C COMPUTERS OUTFITTED WITH OTHER THAN A OGA CARD THE PROGRAM MAY NOT 
C OPERATE. FOR MACHINES THAT HAVE AN EGA CARD THE PROGRAMS WILL NOT 
C PRODUCE A HARDCOPY PRINTOUT OF THE PLOTS. TO OVERCOME THIS 
C LIMITATION, USERS SHOULD TRY EXECUTING THE 'PRINT SCREEN' COMMAND. 

C 

C 

C****************************** INPUT ******************************** 

C 

C 

C UPON EXECUTION OF THE PROGRAM, THE USER IS PROMPTED FOR THE NAME 
C OF THE INPUT FILE. THE INPUT FORMAT STATEMENTS OCCUR IN THE MAIN 
C PROGRAM FOLLOWING THE CAPTION: ******** INPUT FORMAT ********* 

C THE FORM OF THE INPUT DATA FILE IS: 

C 
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c 


LINE # 


ENTRIES 


FORMAT 


RESTRICTIONS 


c 


1 


numplts 


il 


1 <= numplts <= 9 


c 


2 


numpts 


i3 


2 <= numpts <= 999 


c 


3 


title 


a40 




c 


4 


xlabl 


al4 




c 


5 


ylabl 


al4 




c 


6 • • • 


x(), y() 


fl2 . 0, 2X, fl2 . 0 


NOTE 2 



numplts = AN INTEGER VAIIJE THAT SPECIFIES THE NUMBER OF PIOTS TO 

BE CREATED BY THE PROGRAM. FOR EACH PICT 1, numplts 

THE INHJT DATA SPECIFIED BELOW MUST OCCUR IN THE INEUT 
FILE. 



C NOTE 1 
C 

C WHERE: 

C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C NOTE 1. 

C 
C 

C NOTE 2. 

C 
C 
C 
C 
C 

C***************************** EXAMPLE ******************************* 



numpts = 



title - 



xlabl = 



ylabl = 



AN INTEGER VALUE THAT SPECIFIES THE NUMBER OF POINTS TO 
BE READ FROM THE INHJT FILE, FOR A GIVEN PLOT, AND 
PLOTTED. 

A CHARACTER STRING CONSISTING OF UP TO .40 CHARACTERS. 
THIS STRING IS PIACED ABOVE THE PLOT. 

A CHARACTER STRING CONSISTING OF UP TO 14 CHARACTERS. 
THIS STRING IS PIACED BENEATH THE X-AXIS. 

A CHARACTER STRING CONSISTING OF UP TO 14 CHARACTERS. 
THIS STRING IS PIACED ADJACENT TO THE Y-AXIS. 



x ( ) y() = LINES 6 . . . 6+numpts MUST EACH CONTAIN A PAIR OF REAL 

NUMBERS THAT COMPRISE THE ORDINATE x() AND ABSCISSA y() 
VALUES DEFINING A SINGLE POINT TO BE PLOTTED. 



THE DATA REQUIRED FOR LINES 2 . . . 6+numpts IS REPEATED 
FOR EACH PLOT (1. . .numplts) TO BE CREATED BY THE PROGRAM. 

THE FORMAT fl2.0 USED FOR INHJT DATA PERMITS THE DECIMAL 
POINT TO BE PIACED ANYWHERE IN THE FIELD OF 12 COLUMNS 
AND ALSO ALLOWS THE EXPONENTIAL FORMAT TO BE USED (E.G. , 
3146.2 = 3 . 1462E+03) . 



C 

C 

C 

C 

C 

C 

C 



PRINTED BELOW IS A LISTING OF ONE OF THE TWO EXAMPLES INCLUDED IN 
THE INHJT FILE 'PLOTDAT.TST' . THE ENTRIES ON EACH LINE SHOULD BE 
COMPARED TO THE FORMAT REQUIREMENTS LISTED ABOVE. 
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non no 



C 1 
C 005 

C title (UP TO 40 CHARS) IS PRINTED HERE 
C xlabl HERE 



c 

c 


ylabl HERE 
0.0 


0.0 


c 


1.0 


1.0 


c 


2.0 


2.0 


c 


3.0 


3.0 


c 


4.0 


4.0 



C 

C 

C*************************** MAIN PROGRAM *************************** 



$ST0RAGE : 2 

character copy* 1 , yscal*3, xlabl*14, ylabl*14, seal *6 
character title*40, infile*12, plot*l, xx*l, yy*l, grid*l 
real x(999), y(999) , dum(4,999) 
integer tmode,ginode 

C DEFINE SCREEN SIZE: 640 X 200 PIXELS 

gmode = 6 
tmode = 2 

C DEFAULT PICT TYPE: SOLID BLACK LINE, POINTS CONNECTED BY A LINE. 

ndots = 0 
icolor = 3 
klrsym = 3 

ENABLE MINOR TIC MARKS ON AXES. 

ENABLE MAJOR TIC MARKS AND LABEL TO AN ACCURACY OF 0.01. 

minorx = 1 
minory = 1 
label = -1 
ndec = 2 

ENABLE PICT AUTO-SCALING, 
y/x RATIO OF PICT = 1.0. 

PICT ASPECT RATIO =1.2. 

io = 0 
yx = 1.0 
aspet =1.2 
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C DEFINE CHARACTER STRING CONSTANTS. 



seal = 'x 10**' 
xx = 'x' 

yy = 'y' 

C CLEAR SCREEN 

call qclear(0,7) 

C OPEN INHJT FILE AND READ THE VAHJE numplts. 

write (*,111) 
read (*,109) infile 

open(unit=l, file=infile, status^ ' old ' , iostat=ierr,err=999) 
read (1,100) numplts 

C PROMPT USER FOR DESIRED OPTIONS. 

do 5 i=l, numplts 
data x/999*0. 0/, y/999*0.0/ 
write (*, 107) 
read ( * , 101 ) copy 
write (*,112) 
read ( * , 10.1 ) grid 
write (*,108) 
read (*,101) plot 

C READ HEADER DATA FROM INHJT FILE. 

read ( 1 , 102 ) numpts 
read (1,104) title 
read (1,105) xlabl 
read (1,105) ylabl 

C FOR PLOTS OF 25 POINTS OR LESS, PLOTTING SYMBOL = ' + ' . 

if (numpts. le. 25) then 
isymbol =43 
itype = 0 
else 

isymbol = -2 
itype = 1 
endif 

C SCALE THE INHJT DATA. 

xmin = 3.0e+38 

xmax = -3.0ef38 
ymin = 3.0ef38 

ymax = -3.0e+38 
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do 10 k=l, numpts 

read (1,106) x(k) , y(k) 
xmax = max(x(k) ,xmax) 
xmin = min(x(k) ,xmin) 
ymax = max(y(k) ,ymax) 
ymin = min(y(k) ,ymin) 

10 continue 

if (xmax. eq. xmin) then 
write ( * , * ) ' Execution halted . ' 

write(*,*) "The increment of the ordinate values = 0.0. ' 
stop 'Check the ordinate values in the input file. ' 
endif 

if ( (ymax.eq.0.0) .and. (ymin.eq.0.0) ) then 
write (*,*) 'For the current plot, the maximum and minimum' 
write (*,*) 'abscissa values are: ymax = ymin = 0.0. ' 

write(*,*) 'Data ignored computing next plot.' 

goto 5 
endif 

call scale (xmin, xmax, ixscal, xx) 
call scale (ymin, ymax, iyscal,yy) 
scalx = real (ixscal) 
scaly = real(iyscal) 

xmajor = abs(xmax-xmin)/5.0 - 0.000001 
ymajor = abs(ymax-ymin)/5.0 - 0.000001 

do 11 k=l, numpts 

x(k) = x(k)/(10.0**ixscal) 
y(k) = y (k) / ( 10 . 0**iyscal) 

11 continue 

C BEGIN GRAPHICS SECTION, 
call qsmode(gmode) 

call qplot(160,600,30, 180,xndn,xmax,ymrm,ymiax,xiiiin,ymrLn, io,yx, 
& aspct) 

cal 1 qsetup ( ndots , icolor , isymbol , klrsym) 
call qptxt(40, title, icolor, 29, 24) 

call qxaxis( xmin, xmax, xmaj or, minorx, label, ndec) 
call qptxt(14,xlabl,icolor,40,0) 
call qptxt (6, seal, icolor, 68,1) 
call qqnput(576,8,scalx,0) 

call qyaxis (ymin, ymax, ymaj or, minory, label, ndec) 
call qptxt ( 14, ylabl, icolor, 0,12) 
call qptxt (6, seal, icolor, 0,22) 
call qqnput (28,176, scaly , 0 ) 
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C OVERLAY GRID ONTO THE PLOT IF SPECIFIED. 



if ( (grid.eq. 'Y') .or. (grid.eq. 'y') ) then 
call gridd() 
endif 

C PLOT THE POINTS OF THE ARRAYS. 

call qtabl (itype,numpts,x,y) 

C PRINT HARDCOPY IF SPECIFIED. 

if ( (copy.eq. 'y') .or. (copy.eq. * Y ' ) ) then 
call qpscm 
endif 

call qinkey ( iext end , key ) 
call qsmode(tmode) 

5 continue 

write(*,*) 'Plotting completed, returning to DOS.' 

999 close (unit=l) 

if (ierr.gt.O) then 
write(*,110) infile, ierr 
endif 

C ******** INRJT FORMAT ******** 

100 format (il) 

102 format (i3) 

104 forrat(a40) 

105 format (al4) 

106 format (f 12. 0,2x,f 12.0) 

( 2 ************* * ********* ******* 

101 format (al) 

107 0format(lx, 'Do you want a hardcopy of the plot to be', 

1 ' generated next ? Y/N <CR> ' , \) 

108 0format(lx, 'To begin the plotting or to exit from the', 

1 ' plotting enter <CR> . ' , \) 

109 format (al2) 

110 format (lx, 'Error opening file: ',al2,' Error code = ',i4) 

111 0 format (/////, lx, 'TYPE THE NAME OF YOUR DATA FILE FOLLOWED' , 

1' BY <CR>. ' ,/, ' IF YOU DESIRE TO MAKE A TEST RUN USING THE' , 

2' SAMPLE DATA ALREADY STORED',/,' IN THE FILE: PLOTDAT.TST' , 

3' TYPE: PLOTDAT.TST <CR>' ,/, ' FILENAME: ' ,\, ) 

112 format (lx, 'Do you want a grid to overlay the plot ? Y/N <CR>',\) 

end 
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c 



SUBROUTINE : scale 



C PURPOSE: THIS SUBROUTINE FINDS THE LARGEST INTEGER POWER OF TEN 

C OCCURRING IN EITHER valmin OR valmax. THE RESULTING 

C EXPONENT IS RETURNED TO THE CALLING PROGRAM IN iscal. 

C THE SUBROUTINE ALSO SCALES valmin AND valmax BEFORE 

C RETURNING THESE VALUES TO THE MAIN PROGRAM. 



subroutine scale (valmin , valmax , iscal , c) 
character c*l 



iscal = 0 
argl =0.0 
arg2 =0.0 

C LIND THE LARGEST INTEGER POWER OF 10 IN THE SEQUENCE. 

if (valmax. ne. 0.0) then 
argl - loglO (abs (valmax) ) 
endif 

if (valmin. ne. 0.0) then 
arg2 = loglO (abs (valmin) ) 
endif 

iscal = int (max ( argl , arg2 ) ) 

C SCALE THE MAXIMUM AND MINIMUM VAHJES OF THE SEQUENCE. 

valmin = valmin/ (10.0** iscal) 
valmax = valmax/ (10. 0**iscal) 

C CREATE A BUFFER SPACE FOR THE ABSCISSA VALUES OF THE PLOT. 
if(c.eq. 'y') then 

if ( (valmin. It. 0.0) .and. (valmax. It. 0.0) ) valmax = 0.0 
if ( (valmin. gt. 0.0) .and. (valmax. gt. 0.0) ) valmin = 0.0 
tempmin = anint(-1.0+valmin) 
tempmax = anint ( 1 . 0+valmax) 

if (valmin. ne. 0.0) then 

2 if (abs (valmin) - 0. l*abs( tempmin ) ) 3,4,4 

3 teirpnin = . l*tempmin 
goto 2 

4 valmin = valmin + . l*tempmin 
endif 

if (valmax. ne. 0.0) then 

5 if (abs (valmax) - 0.1*abs(teirpmax) ) 6,7,7 
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6 



tempnax = . l*terrpmax 
go to 5 

valmax = valmax + . l*tenpnax 
endif 
endif 

return 

end 



C 



SUBROUTINE: gridd 



C EURPOSE: THIS SUBROUTINE IS CALLED BY THE MAIN PROGRAM TO CREATE 
C A GRID OVERLAY CONSISTING OF BOTH HORIZONTAL AND VERTICAL 

C DASHED LINES EXTENDING FROM THE MAJOR TIC MARKS OF THE 

C AiiLS . 



subroutine gridd () 

C CREATE HORIZONTAL DASHED LINES AT THE MAJOR TIC MARKS OF THE PLOT. 

do 500 i=l, 5 
ii = 29 + 30*i 

call qdash(5,160,ii,600,ii,3) 

500 continue 

C CREATE VERTICAL DASHED LINES AT THE MAJOR TIC MARKS OF THE PLOT. 

do 501 j=l, 5 
jj = 159 + 88 *j 
call qdash(7, j j , 30, jj, 179,3) 

501 continue 

return 

end 
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